home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 38.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 36 3a 30 | 39 20 31 39 39 35 0a 3b | 14:16:0|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 6d |/lisp/pa|ckages/m|
|00000090| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2b 2e 65 6c 0a 3b |ode-moti|on+.el.;|
|000000a0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000b0| 20 31 39 2e 31 33 20 58 | 45 6d 61 63 73 20 4c 75 | 19.13 X|Emacs Lu|
|000000c0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|000000d0| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 32 35 3b 20 |p versio|n 2.25; |
|000000e0| 31 2d 53 65 70 2d 39 34 | 2e 0a 3b 3b 3b 20 6f 70 |1-Sep-94|..;;; op|
|000000f0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000100| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000110| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000120| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000130| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000140| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000150| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000160| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000170| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000180| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000190| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|000001a0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001b0| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|000001c0| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001d0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001e0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 2e 22 29 29 |for Emac|s 19."))|
|000001f0| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|00000200| 21 88 c0 c2 21 88 c3 14 | c0 87 22 20 5b 72 65 71 |!...!...|.." [req|
|00000210| 75 69 72 65 20 74 68 69 | 6e 67 20 6d 6f 64 65 2d |uire thi|ng mode-|
|00000220| 6d 6f 74 69 6f 6e 20 22 | 33 2e 31 32 22 20 6d 6f |motion "|3.12" mo|
|00000230| 64 65 2d 6d 6f 74 69 6f | 6e 2b 2d 76 65 72 73 69 |de-motio|n+-versi|
|00000240| 6f 6e 5d 20 32 29 0a 28 | 64 65 66 76 61 72 20 6d |on] 2).(|defvar m|
|00000250| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2b 2d 72 65 6c 69 |ode-moti|on+-reli|
|00000260| 67 69 6f 6e 20 6e 69 6c | 20 22 5c 0a 2a 44 65 66 |gion nil| "\.*Def|
|00000270| 61 75 6c 74 20 68 69 67 | 68 6c 69 67 68 74 20 72 |ault hig|hlight r|
|00000280| 65 6c 69 67 69 6f 6e 3a | 20 6f 6e 65 20 6f 66 20 |eligion:| one of |
|00000290| 62 6f 6c 64 2c 20 67 72 | 61 79 2c 20 68 69 67 68 |bold, gr|ay, high|
|000002a0| 6c 69 67 68 74 2c 20 69 | 6e 76 65 72 74 20 6f 72 |light, i|nvert or|
|000002b0| 20 75 6e 64 65 72 6c 69 | 6e 65 2e 0a 0a 55 6e 6c | underli|ne...Unl|
|000002c0| 65 73 73 20 79 6f 75 20 | 73 65 74 71 20 74 68 69 |ess you |setq thi|
|000002d0| 73 20 6f 74 68 65 72 77 | 69 73 65 2c 20 69 74 20 |s otherw|ise, it |
|000002e0| 64 65 66 61 75 6c 74 73 | 20 74 6f 20 75 6e 64 65 |defaults| to unde|
|000002f0| 72 6c 69 6e 65 20 77 68 | 65 6e 0a 28 78 2d 64 69 |rline wh|en.(x-di|
|00000300| 73 70 6c 61 79 2d 63 6f | 6c 6f 72 2d 70 29 20 69 |splay-co|lor-p) i|
|00000310| 73 20 6e 6f 6e 2d 6e 69 | 6c 20 61 6e 64 20 69 6e |s non-ni|l and in|
|00000320| 76 65 72 74 20 6f 74 68 | 65 72 77 69 73 65 2e 0a |vert oth|erwise..|
|00000330| 53 65 74 74 69 6e 67 20 | 69 74 20 74 6f 20 27 68 |Setting |it to 'h|
|00000340| 69 67 68 6c 69 67 68 74 | 20 73 68 6f 75 6c 64 20 |ighlight| should |
|00000350| 63 61 75 73 65 20 6d 6f | 64 65 2d 6d 6f 74 69 6f |cause mo|de-motio|
|00000360| 6e 2b 20 65 78 74 65 6e | 74 73 20 74 6f 20 62 65 |n+ exten|ts to be|
|00000370| 0a 69 6e 64 69 73 74 69 | 6e 67 75 69 73 68 61 62 |.indisti|nguishab|
|00000380| 6c 65 20 66 72 6f 6d 20 | 61 6e 79 20 6f 74 68 65 |le from |any othe|
|00000390| 72 20 74 79 70 65 20 6f | 66 20 68 69 67 68 6c 69 |r type o|f highli|
|000003a0| 67 68 74 65 64 20 65 78 | 74 65 6e 74 20 77 68 69 |ghted ex|tent whi|
|000003b0| 63 68 20 6d 61 79 20 6f | 72 20 6d 61 79 0a 6e 6f |ch may o|r may.no|
|000003c0| 74 20 62 65 20 61 64 76 | 69 73 61 62 6c 65 2c 20 |t be adv|isable, |
|000003d0| 64 65 70 65 6e 64 69 6e | 67 20 6f 6e 20 79 6f 75 |dependin|g on you|
|000003e0| 72 20 70 6f 69 6e 74 20 | 6f 66 20 76 69 65 77 2e |r point |of view.|
|000003f0| 22 29 0a 28 64 65 66 76 | 61 72 20 6d 6f 64 65 2d |").(defv|ar mode-|
|00000400| 6d 6f 74 69 6f 6e 2d 68 | 69 67 68 6c 69 67 68 74 |motion-h|ighlight|
|00000410| 2d 6c 69 6e 65 73 2d 77 | 68 65 6e 2d 62 65 68 69 |-lines-w|hen-behi|
|00000420| 6e 64 20 74 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d |nd t "\.|*If non-|
|00000430| 6e 69 6c 20 68 69 67 68 | 6c 69 67 68 74 20 74 68 |nil high|light th|
|00000440| 65 20 77 68 6f 6c 65 20 | 6c 69 6e 65 20 69 66 20 |e whole |line if |
|00000450| 74 68 65 20 6d 6f 75 73 | 65 20 69 73 20 70 61 73 |the mous|e is pas|
|00000460| 74 20 74 68 65 20 65 6e | 64 2e 22 29 0a 28 64 65 |t the en|d.").(de|
|00000470| 66 76 61 72 20 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |fvar mod|e-motion|
|00000480| 2d 66 6f 63 75 73 2d 6f | 6e 2d 77 69 6e 64 6f 77 |-focus-o|n-window|
|00000490| 20 27 66 6f 6c 6c 6f 77 | 2d 70 6f 69 6e 74 20 22 | 'follow|-point "|
|000004a0| 5c 0a 2a 43 6f 6e 74 72 | 6f 6c 73 20 77 68 65 74 |\.*Contr|ols whet|
|000004b0| 68 65 72 20 6d 6f 76 69 | 6e 67 20 74 68 65 20 6d |her movi|ng the m|
|000004c0| 6f 75 73 65 20 69 6e 74 | 6f 20 61 6e 6f 74 68 65 |ouse int|o anothe|
|000004d0| 72 20 77 69 6e 64 6f 77 | 20 73 65 6c 65 63 74 73 |r window| selects|
|000004e0| 20 74 68 69 73 20 77 69 | 6e 64 6f 77 2e 0a 54 68 | this wi|ndow..Th|
|000004f0| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 76 61 6c 75 |e follow|ing valu|
|00000500| 65 73 20 61 72 65 20 70 | 6f 73 73 69 62 6c 65 3a |es are p|ossible:|
|00000510| 0a 20 0a 6e 69 6c 09 20 | 20 2d 20 57 69 6e 64 6f |. .nil. | - Windo|
|00000520| 77 20 73 65 6c 65 63 74 | 69 6f 6e 20 69 73 6e 27 |w select|ion isn'|
|00000530| 74 20 69 6e 66 6c 75 65 | 6e 63 65 64 20 61 74 20 |t influe|nced at |
|00000540| 61 6c 6c 20 62 79 20 6d | 6f 64 65 20 6d 6f 74 69 |all by m|ode moti|
|00000550| 6f 6e 2e 0a 0a 74 09 20 | 20 2d 20 57 69 6e 64 6f |on...t. | - Windo|
|00000560| 77 20 73 65 6c 65 63 74 | 69 6f 6e 20 61 6c 77 61 |w select|ion alwa|
|00000570| 79 73 20 66 6f 6c 6c 6f | 77 73 20 74 68 65 20 6d |ys follo|ws the m|
|00000580| 6f 75 73 65 20 63 75 72 | 73 6f 72 2e 20 43 6f 70 |ouse cur|sor. Cop|
|00000590| 79 69 6e 67 0a 09 20 20 | 20 20 6d 6f 74 69 6f 6e |ying.. | motion|
|000005a0| 20 61 63 74 69 76 65 20 | 72 65 67 69 6f 6e 73 20 | active |regions |
|000005b0| 64 6f 65 73 6e 27 74 20 | 77 6f 72 6b 20 61 6e 79 |doesn't |work any|
|000005c0| 20 6c 6f 6e 67 65 72 20 | 62 65 74 77 65 65 6e 0a | longer |between.|
|000005d0| 09 20 20 20 20 64 69 66 | 66 65 72 65 6e 74 20 62 |. dif|ferent b|
|000005e0| 75 66 66 65 72 73 2e 0a | 09 20 20 20 20 0a 61 6e |uffers..|. .an|
|000005f0| 79 20 6f 74 68 65 72 20 | 2d 20 28 74 68 65 20 64 |y other |- (the d|
|00000600| 65 66 61 75 6c 74 29 20 | 57 69 6e 64 6f 77 20 73 |efault) |Window s|
|00000610| 65 6c 65 63 74 69 6f 6e | 20 66 6f 6c 6c 6f 77 73 |election| follows|
|00000620| 20 74 68 65 20 6d 6f 75 | 73 65 20 63 75 72 73 6f | the mou|se curso|
|00000630| 72 20 69 66 0a 09 20 20 | 20 20 74 68 65 20 6d 6f |r if.. | the mo|
|00000640| 74 69 6f 6e 20 68 61 6e | 64 6c 65 72 20 6f 66 20 |tion han|dler of |
|00000650| 74 68 65 20 62 75 66 66 | 65 72 20 75 6e 64 65 72 |the buff|er under|
|00000660| 20 74 68 65 20 6d 6f 75 | 73 65 20 68 61 73 20 74 | the mou|se has t|
|00000670| 68 65 0a 09 20 20 20 20 | 66 6f 6c 6c 6f 77 2d 70 |he.. |follow-p|
|00000680| 6f 69 6e 74 20 70 72 6f | 70 65 72 74 79 20 73 65 |oint pro|perty se|
|00000690| 74 2e 20 55 73 65 66 75 | 6c 20 66 6f 72 20 73 65 |t. Usefu|l for se|
|000006a0| 6c 65 63 74 69 6e 67 20 | 6c 69 6e 65 20 6d 6f 64 |lecting |line mod|
|000006b0| 65 0a 09 20 20 20 20 62 | 75 66 66 65 72 73 20 6a |e.. b|uffers j|
|000006c0| 75 73 74 20 62 79 20 6d | 6f 76 69 6e 67 20 74 68 |ust by m|oving th|
|000006d0| 65 20 6d 6f 75 73 65 20 | 69 6e 73 69 64 65 20 69 |e mouse |inside i|
|000006e0| 6e 20 6f 72 64 65 72 20 | 74 6f 0a 09 20 20 20 20 |n order |to.. |
|000006f0| 65 78 65 63 75 74 65 20 | 63 6f 6d 6d 61 6e 64 73 |execute |commands|
|00000700| 20 74 68 65 72 65 2e 20 | 28 56 4d 20 73 75 6d 6d | there. |(VM summ|
|00000710| 61 72 79 2c 20 47 4e 55 | 53 20 47 72 6f 75 70 20 |ary, GNU|S Group |
|00000720| 61 6e 64 0a 09 20 20 20 | 20 53 75 62 6a 65 63 74 |and.. | Subject|
|00000730| 20 2c 20 44 49 52 45 44 | 2c 20 42 75 66 66 65 72 | , DIRED|, Buffer|
|00000740| 20 6d 65 6e 75 20 65 74 | 63 2e 29 20 0a 09 20 20 | menu et|c.) .. |
|00000750| 20 20 42 65 20 61 77 61 | 72 65 3a 20 47 4e 55 53 | Be awa|re: GNUS|
|00000760| 20 62 6c 6f 63 6b 73 20 | 77 69 74 68 20 74 68 69 | blocks |with thi|
|00000770| 73 20 6f 70 74 69 6f 6e | 20 73 65 74 20 77 68 65 |s option| set whe|
|00000780| 6e 20 6d 6f 76 69 6e 67 | 20 74 68 65 20 0a 09 20 |n moving| the .. |
|00000790| 20 20 20 6d 6f 75 73 65 | 20 77 68 69 6c 65 20 72 | mouse| while r|
|000007a0| 65 74 72 69 65 76 69 6e | 67 20 68 65 61 64 65 72 |etrievin|g header|
|000007b0| 73 20 6f 72 20 61 72 74 | 69 63 6c 65 73 20 76 69 |s or art|icles vi|
|000007c0| 61 20 74 68 65 20 4e 4e | 54 50 0a 09 20 20 20 20 |a the NN|TP.. |
|000007d0| 73 65 72 76 69 63 65 2e | 22 29 0a 28 64 65 66 76 |service.|").(defv|
|000007e0| 61 72 20 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2d 73 |ar mode-|motion-s|
|000007f0| 65 74 75 70 2d 63 75 74 | 2d 61 6e 64 2d 70 61 73 |etup-cut|-and-pas|
|00000800| 74 65 2d 62 69 6e 64 69 | 6e 67 73 20 74 20 22 5c |te-bindi|ngs t "\|
|00000810| 0a 2a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 62 69 |.*If non|-nil, bi|
|00000820| 6e 64 20 63 6f 6d 6d 61 | 6e 64 73 20 74 6f 20 74 |nd comma|nds to t|
|00000830| 68 65 20 43 6f 70 79 2c | 20 50 61 73 74 65 20 61 |he Copy,| Paste a|
|00000840| 6e 64 20 43 75 74 20 6b | 65 79 73 2e 22 29 0a 28 |nd Cut k|eys.").(|
|00000850| 64 65 66 76 61 72 20 6d | 6f 64 65 2d 6d 6f 74 69 |defvar m|ode-moti|
|00000860| 6f 6e 2b 2d 6f 70 74 69 | 6f 6e 73 2d 6d 65 6e 75 |on+-opti|ons-menu|
|00000870| 20 27 28 22 4d 6f 74 69 | 6f 6e 20 48 69 67 68 6c | '("Moti|on Highl|
|00000880| 69 67 68 74 69 6e 67 22 | 20 22 46 6f 72 20 43 75 |ighting"| "For Cu|
|00000890| 72 72 65 6e 74 20 42 75 | 66 66 65 72 22 20 22 2d |rrent Bu|ffer" "-|
|000008a0| 2d 2d 22 20 5b 22 4e 6f | 6e 65 22 20 28 70 72 6f |--" ["No|ne" (pro|
|000008b0| 67 6e 20 28 73 65 74 2d | 62 75 66 66 65 72 2d 6d |gn (set-|buffer-m|
|000008c0| 6f 74 69 6f 6e 2d 68 61 | 6e 64 6c 65 72 20 28 63 |otion-ha|ndler (c|
|000008d0| 75 72 72 65 6e 74 2d 62 | 75 66 66 65 72 29 20 27 |urrent-b|uffer) '|
|000008e0| 6e 6f 2d 74 68 69 6e 67 | 29 20 28 6d 6f 64 65 2d |no-thing|) (mode-|
|000008f0| 6d 6f 74 69 6f 6e 2d 63 | 6c 65 61 72 2d 65 78 74 |motion-c|lear-ext|
|00000900| 65 6e 74 29 29 20 3a 73 | 74 79 6c 65 20 72 61 64 |ent)) :s|tyle rad|
|00000910| 69 6f 20 3a 73 65 6c 65 | 63 74 65 64 20 28 65 71 |io :sele|cted (eq|
|00000920| 20 28 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2b 2d 62 | (mode-m|otion+-b|
|00000930| 75 66 66 65 72 2d 68 61 | 6e 64 6c 65 72 2d 72 65 |uffer-ha|ndler-re|
|00000940| 6c 69 67 69 6f 6e 20 28 | 63 75 72 72 65 6e 74 2d |ligion (|current-|
|00000950| 62 75 66 66 65 72 29 29 | 20 27 6e 6f 29 20 3a 61 |buffer))| 'no) :a|
|00000960| 63 74 69 76 65 20 28 6d | 6f 64 65 2d 6d 6f 74 69 |ctive (m|ode-moti|
|00000970| 6f 6e 2b 2d 61 63 74 69 | 76 65 2d 70 29 5d 20 5b |on+-acti|ve-p)] [|
|00000980| 22 42 6f 6c 64 22 20 28 | 70 72 6f 67 6e 20 28 6d |"Bold" (|progn (m|
|00000990| 6f 64 69 66 79 2d 62 75 | 66 66 65 72 2d 6d 6f 74 |odify-bu|ffer-mot|
|000009a0| 69 6f 6e 2d 68 61 6e 64 | 6c 65 72 20 28 63 75 72 |ion-hand|ler (cur|
|000009b0| 72 65 6e 74 2d 62 75 66 | 66 65 72 29 20 27 62 6f |rent-buf|fer) 'bo|
|000009c0| 6c 64 29 29 20 3a 73 74 | 79 6c 65 20 72 61 64 69 |ld)) :st|yle radi|
|000009d0| 6f 20 3a 73 65 6c 65 63 | 74 65 64 20 28 65 71 20 |o :selec|ted (eq |
|000009e0| 28 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2b 2d 62 75 |(mode-mo|tion+-bu|
|000009f0| 66 66 65 72 2d 68 61 6e | 64 6c 65 72 2d 72 65 6c |ffer-han|dler-rel|
|00000a00| 69 67 69 6f 6e 20 28 63 | 75 72 72 65 6e 74 2d 62 |igion (c|urrent-b|
|00000a10| 75 66 66 65 72 29 29 20 | 27 62 6f 6c 64 29 20 3a |uffer)) |'bold) :|
|00000a20| 61 63 74 69 76 65 20 28 | 6d 6f 64 65 2d 6d 6f 74 |active (|mode-mot|
|00000a30| 69 6f 6e 2b 2d 61 63 74 | 69 76 65 2d 70 29 5d 20 |ion+-act|ive-p)] |
|00000a40| 5b 22 55 6e 64 65 72 6c | 69 6e 65 22 20 28 70 72 |["Underl|ine" (pr|
|00000a50| 6f 67 6e 20 28 6d 6f 64 | 69 66 79 2d 62 75 66 66 |ogn (mod|ify-buff|
|00000a60| 65 72 2d 6d 6f 74 69 6f | 6e 2d 68 61 6e 64 6c 65 |er-motio|n-handle|
|00000a70| 72 20 28 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |r (curre|nt-buffe|
|00000a80| 72 29 20 27 75 6e 64 65 | 72 6c 69 6e 65 29 29 20 |r) 'unde|rline)) |
|00000a90| 3a 73 74 79 6c 65 20 72 | 61 64 69 6f 20 3a 73 65 |:style r|adio :se|
|00000aa0| 6c 65 63 74 65 64 20 28 | 65 71 20 28 6d 6f 64 65 |lected (|eq (mode|
|00000ab0| 2d 6d 6f 74 69 6f 6e 2b | 2d 62 75 66 66 65 72 2d |-motion+|-buffer-|
|00000ac0| 68 61 6e 64 6c 65 72 2d | 72 65 6c 69 67 69 6f 6e |handler-|religion|
|00000ad0| 20 28 63 75 72 72 65 6e | 74 2d 62 75 66 66 65 72 | (curren|t-buffer|
|00000ae0| 29 29 20 27 75 6e 64 65 | 72 6c 69 6e 65 29 20 3a |)) 'unde|rline) :|
|00000af0| 61 63 74 69 76 65 20 28 | 6d 6f 64 65 2d 6d 6f 74 |active (|mode-mot|
|00000b00| 69 6f 6e 2b 2d 61 63 74 | 69 76 65 2d 70 29 5d 20 |ion+-act|ive-p)] |
|00000b10| 5b 22 47 72 61 79 22 20 | 28 70 72 6f 67 6e 20 28 |["Gray" |(progn (|
|00000b20| 6d 6f 64 69 66 79 2d 62 | 75 66 66 65 72 2d 6d 6f |modify-b|uffer-mo|
|00000b30| 74 69 6f 6e 2d 68 61 6e | 64 6c 65 72 20 28 63 75 |tion-han|dler (cu|
|00000b40| 72 72 65 6e 74 2d 62 75 | 66 66 65 72 29 20 27 67 |rrent-bu|ffer) 'g|
|00000b50| 72 61 79 29 29 20 3a 73 | 74 79 6c 65 20 72 61 64 |ray)) :s|tyle rad|
|00000b60| 69 6f 20 3a 73 65 6c 65 | 63 74 65 64 20 28 65 71 |io :sele|cted (eq|
|00000b70| 20 28 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2b 2d 62 | (mode-m|otion+-b|
|00000b80| 75 66 66 65 72 2d 68 61 | 6e 64 6c 65 72 2d 72 65 |uffer-ha|ndler-re|
|00000b90| 6c 69 67 69 6f 6e 20 28 | 63 75 72 72 65 6e 74 2d |ligion (|current-|
|00000ba0| 62 75 66 66 65 72 29 29 | 20 27 67 72 61 79 29 20 |buffer))| 'gray) |
|00000bb0| 3a 61 63 74 69 76 65 20 | 28 6d 6f 64 65 2d 6d 6f |:active |(mode-mo|
|00000bc0| 74 69 6f 6e 2b 2d 61 63 | 74 69 76 65 2d 70 29 5d |tion+-ac|tive-p)]|
|00000bd0| 20 5b 22 48 69 67 68 6c | 69 67 68 74 22 20 28 70 | ["Highl|ight" (p|
|00000be0| 72 6f 67 6e 20 28 6d 6f | 64 69 66 79 2d 62 75 66 |rogn (mo|dify-buf|
|00000bf0| 66 65 72 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |fer-moti|on-handl|
|00000c00| 65 72 20 28 63 75 72 72 | 65 6e 74 2d 62 75 66 66 |er (curr|ent-buff|
|00000c10| 65 72 29 20 27 68 69 67 | 68 6c 69 67 68 74 29 29 |er) 'hig|hlight))|
|00000c20| 20 3a 73 74 79 6c 65 20 | 72 61 64 69 6f 20 3a 73 | :style |radio :s|
|00000c30| 65 6c 65 63 74 65 64 20 | 28 65 71 20 28 6d 6f 64 |elected |(eq (mod|
|00000c40| 65 2d 6d 6f 74 69 6f 6e | 2b 2d 62 75 66 66 65 72 |e-motion|+-buffer|
|00000c50| 2d 68 61 6e 64 6c 65 72 | 2d 72 65 6c 69 67 69 6f |-handler|-religio|
|00000c60| 6e 20 28 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |n (curre|nt-buffe|
|00000c70| 72 29 29 20 27 68 69 67 | 68 6c 69 67 68 74 29 20 |r)) 'hig|hlight) |
|00000c80| 3a 61 63 74 69 76 65 20 | 28 6d 6f 64 65 2d 6d 6f |:active |(mode-mo|
|00000c90| 74 69 6f 6e 2b 2d 61 63 | 74 69 76 65 2d 70 29 5d |tion+-ac|tive-p)]|
|00000ca0| 20 5b 22 49 6e 76 65 72 | 74 22 20 28 70 72 6f 67 | ["Inver|t" (prog|
|00000cb0| 6e 20 28 6d 6f 64 69 66 | 79 2d 62 75 66 66 65 72 |n (modif|y-buffer|
|00000cc0| 2d 6d 6f 74 69 6f 6e 2d | 68 61 6e 64 6c 65 72 20 |-motion-|handler |
|00000cd0| 28 63 75 72 72 65 6e 74 | 2d 62 75 66 66 65 72 29 |(current|-buffer)|
|00000ce0| 20 27 69 6e 76 65 72 74 | 29 29 20 3a 73 74 79 6c | 'invert|)) :styl|
|00000cf0| 65 20 72 61 64 69 6f 20 | 3a 73 65 6c 65 63 74 65 |e radio |:selecte|
|00000d00| 64 20 28 65 71 20 28 6d | 6f 64 65 2d 6d 6f 74 69 |d (eq (m|ode-moti|
|00000d10| 6f 6e 2b 2d 62 75 66 66 | 65 72 2d 68 61 6e 64 6c |on+-buff|er-handl|
|00000d20| 65 72 2d 72 65 6c 69 67 | 69 6f 6e 20 28 63 75 72 |er-relig|ion (cur|
|00000d30| 72 65 6e 74 2d 62 75 66 | 66 65 72 29 29 20 27 69 |rent-buf|fer)) 'i|
|00000d40| 6e 76 65 72 74 29 20 3a | 61 63 74 69 76 65 20 28 |nvert) :|active (|
|00000d50| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2b 2d 61 63 74 |mode-mot|ion+-act|
|00000d60| 69 76 65 2d 70 29 5d 20 | 22 2d 2d 2d 22 20 22 46 |ive-p)] |"---" "F|
|00000d70| 6f 72 20 43 75 72 72 65 | 6e 74 20 4d 6f 64 65 22 |or Curre|nt Mode"|
|00000d80| 20 22 2d 2d 2d 22 20 5b | 22 4e 6f 6e 65 22 20 28 | "---" [|"None" (|
|00000d90| 70 72 6f 67 6e 20 28 73 | 65 74 2d 6d 6f 64 65 2d |progn (s|et-mode-|
|00000da0| 6d 6f 74 69 6f 6e 2d 68 | 61 6e 64 6c 65 72 20 6d |motion-h|andler m|
|00000db0| 61 6a 6f 72 2d 6d 6f 64 | 65 20 27 6e 6f 2d 74 68 |ajor-mod|e 'no-th|
|00000dc0| 69 6e 67 29 20 28 6d 6f | 64 65 2d 6d 6f 74 69 6f |ing) (mo|de-motio|
|00000dd0| 6e 2d 63 6c 65 61 72 2d | 65 78 74 65 6e 74 29 29 |n-clear-|extent))|
|00000de0| 20 3a 73 74 79 6c 65 20 | 72 61 64 69 6f 20 3a 73 | :style |radio :s|
|00000df0| 65 6c 65 63 74 65 64 20 | 28 65 71 20 28 6d 6f 64 |elected |(eq (mod|
|00000e00| 65 2d 6d 6f 74 69 6f 6e | 2b 2d 6d 6f 64 65 2d 68 |e-motion|+-mode-h|
|00000e10| 61 6e 64 6c 65 72 2d 72 | 65 6c 69 67 69 6f 6e 20 |andler-r|eligion |
|00000e20| 6d 61 6a 6f 72 2d 6d 6f | 64 65 29 20 27 6e 6f 29 |major-mo|de) 'no)|
|00000e30| 20 3a 61 63 74 69 76 65 | 20 28 6d 6f 64 65 2d 6d | :active| (mode-m|
|00000e40| 6f 74 69 6f 6e 2b 2d 61 | 63 74 69 76 65 2d 70 29 |otion+-a|ctive-p)|
|00000e50| 5d 20 5b 22 42 6f 6c 64 | 22 20 28 70 72 6f 67 6e |] ["Bold|" (progn|
|00000e60| 20 28 6d 6f 64 69 66 79 | 2d 6d 6f 64 65 2d 6d 6f | (modify|-mode-mo|
|00000e70| 74 69 6f 6e 2d 68 61 6e | 64 6c 65 72 20 6d 61 6a |tion-han|dler maj|
|00000e80| 6f 72 2d 6d 6f 64 65 20 | 27 62 6f 6c 64 29 29 20 |or-mode |'bold)) |
|00000e90| 3a 73 74 79 6c 65 20 72 | 61 64 69 6f 20 3a 73 65 |:style r|adio :se|
|00000ea0| 6c 65 63 74 65 64 20 28 | 65 71 20 28 6d 6f 64 65 |lected (|eq (mode|
|00000eb0| 2d 6d 6f 74 69 6f 6e 2b | 2d 6d 6f 64 65 2d 68 61 |-motion+|-mode-ha|
|00000ec0| 6e 64 6c 65 72 2d 72 65 | 6c 69 67 69 6f 6e 20 6d |ndler-re|ligion m|
|00000ed0| 61 6a 6f 72 2d 6d 6f 64 | 65 29 20 27 62 6f 6c 64 |ajor-mod|e) 'bold|
|00000ee0| 29 20 3a 61 63 74 69 76 | 65 20 28 6d 6f 64 65 2d |) :activ|e (mode-|
|00000ef0| 6d 6f 74 69 6f 6e 2b 2d | 61 63 74 69 76 65 2d 70 |motion+-|active-p|
|00000f00| 29 5d 20 5b 22 55 6e 64 | 65 72 6c 69 6e 65 22 20 |)] ["Und|erline" |
|00000f10| 28 70 72 6f 67 6e 20 28 | 6d 6f 64 69 66 79 2d 6d |(progn (|modify-m|
|00000f20| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |ode-moti|on-handl|
|00000f30| 65 72 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 27 75 |er major|-mode 'u|
|00000f40| 6e 64 65 72 6c 69 6e 65 | 29 29 20 3a 73 74 79 6c |nderline|)) :styl|
|00000f50| 65 20 72 61 64 69 6f 20 | 3a 73 65 6c 65 63 74 65 |e radio |:selecte|
|00000f60| 64 20 28 65 71 20 28 6d | 6f 64 65 2d 6d 6f 74 69 |d (eq (m|ode-moti|
|00000f70| 6f 6e 2b 2d 6d 6f 64 65 | 2d 68 61 6e 64 6c 65 72 |on+-mode|-handler|
|00000f80| 2d 72 65 6c 69 67 69 6f | 6e 20 6d 61 6a 6f 72 2d |-religio|n major-|
|00000f90| 6d 6f 64 65 29 20 27 75 | 6e 64 65 72 6c 69 6e 65 |mode) 'u|nderline|
|00000fa0| 29 20 3a 61 63 74 69 76 | 65 20 28 6d 6f 64 65 2d |) :activ|e (mode-|
|00000fb0| 6d 6f 74 69 6f 6e 2b 2d | 61 63 74 69 76 65 2d 70 |motion+-|active-p|
|00000fc0| 29 5d 20 5b 22 47 72 61 | 79 22 20 28 70 72 6f 67 |)] ["Gra|y" (prog|
|00000fd0| 6e 20 28 6d 6f 64 69 66 | 79 2d 6d 6f 64 65 2d 6d |n (modif|y-mode-m|
|00000fe0| 6f 74 69 6f 6e 2d 68 61 | 6e 64 6c 65 72 20 6d 61 |otion-ha|ndler ma|
|00000ff0| 6a 6f 72 2d 6d 6f 64 65 | 20 27 67 72 61 79 29 29 |jor-mode| 'gray))|
|00001000| 20 3a 73 74 79 6c 65 20 | 72 61 64 69 6f 20 3a 73 | :style |radio :s|
|00001010| 65 6c 65 63 74 65 64 20 | 28 65 71 20 28 6d 6f 64 |elected |(eq (mod|
|00001020| 65 2d 6d 6f 74 69 6f 6e | 2b 2d 6d 6f 64 65 2d 68 |e-motion|+-mode-h|
|00001030| 61 6e 64 6c 65 72 2d 72 | 65 6c 69 67 69 6f 6e 20 |andler-r|eligion |
|00001040| 6d 61 6a 6f 72 2d 6d 6f | 64 65 29 20 27 67 72 61 |major-mo|de) 'gra|
|00001050| 79 29 20 3a 61 63 74 69 | 76 65 20 28 6d 6f 64 65 |y) :acti|ve (mode|
|00001060| 2d 6d 6f 74 69 6f 6e 2b | 2d 61 63 74 69 76 65 2d |-motion+|-active-|
|00001070| 70 29 5d 20 5b 22 48 69 | 67 68 6c 69 67 68 74 22 |p)] ["Hi|ghlight"|
|00001080| 20 28 70 72 6f 67 6e 20 | 28 6d 6f 64 69 66 79 2d | (progn |(modify-|
|00001090| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |mode-mot|ion-hand|
|000010a0| 6c 65 72 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 27 |ler majo|r-mode '|
|000010b0| 68 69 67 68 6c 69 67 68 | 74 29 29 20 3a 73 74 79 |highligh|t)) :sty|
|000010c0| 6c 65 20 72 61 64 69 6f | 20 3a 73 65 6c 65 63 74 |le radio| :select|
|000010d0| 65 64 20 28 65 71 20 28 | 6d 6f 64 65 2d 6d 6f 74 |ed (eq (|mode-mot|
|000010e0| 69 6f 6e 2b 2d 6d 6f 64 | 65 2d 68 61 6e 64 6c 65 |ion+-mod|e-handle|
|000010f0| 72 2d 72 65 6c 69 67 69 | 6f 6e 20 6d 61 6a 6f 72 |r-religi|on major|
|00001100| 2d 6d 6f 64 65 29 20 27 | 68 69 67 68 6c 69 67 68 |-mode) '|highligh|
|00001110| 74 29 20 3a 61 63 74 69 | 76 65 20 28 6d 6f 64 65 |t) :acti|ve (mode|
|00001120| 2d 6d 6f 74 69 6f 6e 2b | 2d 61 63 74 69 76 65 2d |-motion+|-active-|
|00001130| 70 29 5d 20 5b 22 49 6e | 76 65 72 74 22 20 28 70 |p)] ["In|vert" (p|
|00001140| 72 6f 67 6e 20 28 6d 6f | 64 69 66 79 2d 6d 6f 64 |rogn (mo|dify-mod|
|00001150| 65 2d 6d 6f 74 69 6f 6e | 2d 68 61 6e 64 6c 65 72 |e-motion|-handler|
|00001160| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 27 69 6e 76 | major-m|ode 'inv|
|00001170| 65 72 74 29 29 20 3a 73 | 74 79 6c 65 20 72 61 64 |ert)) :s|tyle rad|
|00001180| 69 6f 20 3a 73 65 6c 65 | 63 74 65 64 20 28 65 71 |io :sele|cted (eq|
|00001190| 20 28 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2b 2d 6d | (mode-m|otion+-m|
|000011a0| 6f 64 65 2d 68 61 6e 64 | 6c 65 72 2d 72 65 6c 69 |ode-hand|ler-reli|
|000011b0| 67 69 6f 6e 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 29 |gion maj|or-mode)|
|000011c0| 20 27 69 6e 76 65 72 74 | 29 20 3a 61 63 74 69 76 | 'invert|) :activ|
|000011d0| 65 20 28 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2b 2d |e (mode-|motion+-|
|000011e0| 61 63 74 69 76 65 2d 70 | 29 5d 20 22 2d 2d 2d 22 |active-p|)] "---"|
|000011f0| 20 22 46 6f 72 20 41 6c | 6c 22 20 22 2d 2d 2d 22 | "For Al|l" "---"|
|00001200| 20 5b 22 4e 6f 6e 65 22 | 20 28 70 72 6f 67 6e 20 | ["None"| (progn |
|00001210| 28 73 65 74 71 20 6d 6f | 64 65 2d 6d 6f 74 69 6f |(setq mo|de-motio|
|00001220| 6e 2b 2d 72 65 6c 69 67 | 69 6f 6e 20 27 6e 6f 29 |n+-relig|ion 'no)|
|00001230| 20 28 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 69 6e | (mode-m|otion-in|
|00001240| 69 74 2d 68 61 6e 64 6c | 65 72 73 2d 61 63 63 6f |it-handl|ers-acco|
|00001250| 72 64 69 6e 67 2d 74 6f | 2d 72 65 6c 69 67 69 6f |rding-to|-religio|
|00001260| 6e 20 27 66 6f 72 63 65 | 29 20 28 6d 6f 64 65 2d |n 'force|) (mode-|
|00001270| 6d 6f 74 69 6f 6e 2d 63 | 6c 65 61 72 2d 65 78 74 |motion-c|lear-ext|
|00001280| 65 6e 74 29 29 20 3a 73 | 74 79 6c 65 20 72 61 64 |ent)) :s|tyle rad|
|00001290| 69 6f 20 3a 73 65 6c 65 | 63 74 65 64 20 28 65 71 |io :sele|cted (eq|
|000012a0| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2b 2d 72 65 | mode-mo|tion+-re|
|000012b0| 6c 69 67 69 6f 6e 20 27 | 6e 6f 29 20 3a 61 63 74 |ligion '|no) :act|
|000012c0| 69 76 65 20 28 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |ive (mod|e-motion|
|000012d0| 2b 2d 61 63 74 69 76 65 | 2d 70 29 5d 20 5b 22 42 |+-active|-p)] ["B|
|000012e0| 6f 6c 64 22 20 28 70 72 | 6f 67 6e 20 28 73 65 74 |old" (pr|ogn (set|
|000012f0| 71 20 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2b 2d 72 |q mode-m|otion+-r|
|00001300| 65 6c 69 67 69 6f 6e 20 | 27 62 6f 6c 64 29 20 28 |eligion |'bold) (|
|00001310| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 69 6e 69 74 |mode-mot|ion-init|
|00001320| 2d 68 61 6e 64 6c 65 72 | 73 2d 61 63 63 6f 72 64 |-handler|s-accord|
|00001330| 69 6e 67 2d 74 6f 2d 72 | 65 6c 69 67 69 6f 6e 20 |ing-to-r|eligion |
|00001340| 27 66 6f 72 63 65 29 29 | 20 3a 73 74 79 6c 65 20 |'force))| :style |
|00001350| 72 61 64 69 6f 20 3a 73 | 65 6c 65 63 74 65 64 20 |radio :s|elected |
|00001360| 28 65 71 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2b |(eq mode|-motion+|
|00001370| 2d 72 65 6c 69 67 69 6f | 6e 20 27 62 6f 6c 64 29 |-religio|n 'bold)|
|00001380| 20 3a 61 63 74 69 76 65 | 20 28 6d 6f 64 65 2d 6d | :active| (mode-m|
|00001390| 6f 74 69 6f 6e 2b 2d 61 | 63 74 69 76 65 2d 70 29 |otion+-a|ctive-p)|
|000013a0| 5d 20 5b 22 55 6e 64 65 | 72 6c 69 6e 65 22 20 28 |] ["Unde|rline" (|
|000013b0| 70 72 6f 67 6e 20 28 73 | 65 74 71 20 6d 6f 64 65 |progn (s|etq mode|
|000013c0| 2d 6d 6f 74 69 6f 6e 2b | 2d 72 65 6c 69 67 69 6f |-motion+|-religio|
|000013d0| 6e 20 27 75 6e 64 65 72 | 6c 69 6e 65 29 20 28 6d |n 'under|line) (m|
|000013e0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 69 6e 69 74 2d |ode-moti|on-init-|
|000013f0| 68 61 6e 64 6c 65 72 73 | 2d 61 63 63 6f 72 64 69 |handlers|-accordi|
|00001400| 6e 67 2d 74 6f 2d 72 65 | 6c 69 67 69 6f 6e 20 27 |ng-to-re|ligion '|
|00001410| 66 6f 72 63 65 29 29 20 | 3a 73 74 79 6c 65 20 72 |force)) |:style r|
|00001420| 61 64 69 6f 20 3a 73 65 | 6c 65 63 74 65 64 20 28 |adio :se|lected (|
|00001430| 65 71 20 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2b 2d |eq mode-|motion+-|
|00001440| 72 65 6c 69 67 69 6f 6e | 20 27 75 6e 64 65 72 6c |religion| 'underl|
|00001450| 69 6e 65 29 20 3a 61 63 | 74 69 76 65 20 28 6d 6f |ine) :ac|tive (mo|
|00001460| 64 65 2d 6d 6f 74 69 6f | 6e 2b 2d 61 63 74 69 76 |de-motio|n+-activ|
|00001470| 65 2d 70 29 5d 20 5b 22 | 47 72 61 79 22 20 28 70 |e-p)] ["|Gray" (p|
|00001480| 72 6f 67 6e 20 28 73 65 | 74 71 20 6d 6f 64 65 2d |rogn (se|tq mode-|
|00001490| 6d 6f 74 69 6f 6e 2b 2d | 72 65 6c 69 67 69 6f 6e |motion+-|religion|
|000014a0| 20 27 67 72 61 79 29 20 | 28 6d 6f 64 65 2d 6d 6f | 'gray) |(mode-mo|
|000014b0| 74 69 6f 6e 2d 69 6e 69 | 74 2d 68 61 6e 64 6c 65 |tion-ini|t-handle|
|000014c0| 72 73 2d 61 63 63 6f 72 | 64 69 6e 67 2d 74 6f 2d |rs-accor|ding-to-|
|000014d0| 72 65 6c 69 67 69 6f 6e | 20 27 66 6f 72 63 65 29 |religion| 'force)|
|000014e0| 29 20 3a 73 74 79 6c 65 | 20 72 61 64 69 6f 20 3a |) :style| radio :|
|000014f0| 73 65 6c 65 63 74 65 64 | 20 28 65 71 20 6d 6f 64 |selected| (eq mod|
|00001500| 65 2d 6d 6f 74 69 6f 6e | 2b 2d 72 65 6c 69 67 69 |e-motion|+-religi|
|00001510| 6f 6e 20 27 67 72 61 79 | 29 20 3a 61 63 74 69 76 |on 'gray|) :activ|
|00001520| 65 20 28 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2b 2d |e (mode-|motion+-|
|00001530| 61 63 74 69 76 65 2d 70 | 29 5d 20 5b 22 48 69 67 |active-p|)] ["Hig|
|00001540| 68 6c 69 67 68 74 22 20 | 28 70 72 6f 67 6e 20 28 |hlight" |(progn (|
|00001550| 73 65 74 71 20 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |setq mod|e-motion|
|00001560| 2b 2d 72 65 6c 69 67 69 | 6f 6e 20 27 68 69 67 68 |+-religi|on 'high|
|00001570| 6c 69 67 68 74 29 20 28 | 6d 6f 64 65 2d 6d 6f 74 |light) (|mode-mot|
|00001580| 69 6f 6e 2d 69 6e 69 74 | 2d 68 61 6e 64 6c 65 72 |ion-init|-handler|
|00001590| 73 2d 61 63 63 6f 72 64 | 69 6e 67 2d 74 6f 2d 72 |s-accord|ing-to-r|
|000015a0| 65 6c 69 67 69 6f 6e 20 | 27 66 6f 72 63 65 29 29 |eligion |'force))|
|000015b0| 20 3a 73 74 79 6c 65 20 | 72 61 64 69 6f 20 3a 73 | :style |radio :s|
|000015c0| 65 6c 65 63 74 65 64 20 | 28 65 71 20 6d 6f 64 65 |elected |(eq mode|
|000015d0| 2d 6d 6f 74 69 6f 6e 2b | 2d 72 65 6c 69 67 69 6f |-motion+|-religio|
|000015e0| 6e 20 27 68 69 67 68 6c | 69 67 68 74 29 20 3a 61 |n 'highl|ight) :a|
|000015f0| 63 74 69 76 65 20 28 6d | 6f 64 65 2d 6d 6f 74 69 |ctive (m|ode-moti|
|00001600| 6f 6e 2b 2d 61 63 74 69 | 76 65 2d 70 29 5d 20 5b |on+-acti|ve-p)] [|
|00001610| 22 49 6e 76 65 72 74 22 | 20 28 70 72 6f 67 6e 20 |"Invert"| (progn |
|00001620| 28 73 65 74 71 20 6d 6f | 64 65 2d 6d 6f 74 69 6f |(setq mo|de-motio|
|00001630| 6e 2b 2d 72 65 6c 69 67 | 69 6f 6e 20 27 69 6e 76 |n+-relig|ion 'inv|
|00001640| 65 72 74 29 20 28 6d 6f | 64 65 2d 6d 6f 74 69 6f |ert) (mo|de-motio|
|00001650| 6e 2d 69 6e 69 74 2d 68 | 61 6e 64 6c 65 72 73 2d |n-init-h|andlers-|
|00001660| 61 63 63 6f 72 64 69 6e | 67 2d 74 6f 2d 72 65 6c |accordin|g-to-rel|
|00001670| 69 67 69 6f 6e 20 27 66 | 6f 72 63 65 29 29 20 3a |igion 'f|orce)) :|
|00001680| 73 74 79 6c 65 20 72 61 | 64 69 6f 20 3a 73 65 6c |style ra|dio :sel|
|00001690| 65 63 74 65 64 20 28 65 | 71 20 6d 6f 64 65 2d 6d |ected (e|q mode-m|
|000016a0| 6f 74 69 6f 6e 2b 2d 72 | 65 6c 69 67 69 6f 6e 20 |otion+-r|eligion |
|000016b0| 27 69 6e 76 65 72 74 29 | 20 3a 61 63 74 69 76 65 |'invert)| :active|
|000016c0| 20 28 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2b 2d 61 | (mode-m|otion+-a|
|000016d0| 63 74 69 76 65 2d 70 29 | 5d 20 22 2d 2d 2d 22 20 |ctive-p)|] "---" |
|000016e0| 5b 22 4d 69 6e 69 62 75 | 66 66 65 72 20 68 69 67 |["Minibu|ffer hig|
|000016f0| 68 6c 69 67 68 74 69 6e | 67 22 20 28 73 65 74 71 |hlightin|g" (setq|
|00001700| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2d 75 73 65 | mode-mo|tion-use|
|00001710| 2d 6d 69 6e 69 62 75 66 | 66 65 72 2d 6d 6f 74 69 |-minibuf|fer-moti|
|00001720| 6f 6e 2d 68 61 6e 64 6c | 65 72 20 28 6e 6f 74 20 |on-handl|er (not |
|00001730| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 75 73 65 2d |mode-mot|ion-use-|
|00001740| 6d 69 6e 69 62 75 66 66 | 65 72 2d 6d 6f 74 69 6f |minibuff|er-motio|
|00001750| 6e 2d 68 61 6e 64 6c 65 | 72 29 29 20 3a 73 74 79 |n-handle|r)) :sty|
|00001760| 6c 65 20 74 6f 67 67 6c | 65 20 3a 73 65 6c 65 63 |le toggl|e :selec|
|00001770| 74 65 64 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2d |ted mode|-motion-|
|00001780| 75 73 65 2d 6d 69 6e 69 | 62 75 66 66 65 72 2d 6d |use-mini|buffer-m|
|00001790| 6f 74 69 6f 6e 2d 68 61 | 6e 64 6c 65 72 5d 20 5b |otion-ha|ndler] [|
|000017a0| 22 43 75 73 74 6f 6d 69 | 7a 65 2e 2e 2e 22 20 28 |"Customi|ze..." (|
|000017b0| 6c 69 73 74 2d 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |list-mot|ion-hand|
|000017c0| 6c 65 72 73 29 20 74 5d | 20 5b 22 52 65 76 65 72 |lers) t]| ["Rever|
|000017d0| 74 20 43 75 73 74 6f 6d | 69 7a 61 74 69 6f 6e 22 |t Custom|ization"|
|000017e0| 20 28 63 61 6c 6c 2d 69 | 6e 74 65 72 61 63 74 69 | (call-i|nteracti|
|000017f0| 76 65 6c 79 20 27 6d 6f | 64 65 2d 6d 6f 74 69 6f |vely 'mo|de-motio|
|00001800| 6e 2b 2d 6d 6f 74 69 6f | 6e 2d 68 6f 6f 6b 2d 72 |n+-motio|n-hook-r|
|00001810| 65 76 65 72 74 29 20 28 | 61 6e 64 20 28 62 6f 75 |evert) (|and (bou|
|00001820| 6e 64 70 20 27 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |ndp 'mod|e-motion|
|00001830| 2b 2d 70 72 65 76 69 6f | 75 73 2d 68 6f 6f 6b 29 |+-previo|us-hook)|
|00001840| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2b 2d 70 72 | mode-mo|tion+-pr|
|00001850| 65 76 69 6f 75 73 2d 68 | 6f 6f 6b 29 5d 29 20 22 |evious-h|ook)]) "|
|00001860| 5c 0a 4d 65 6e 75 20 66 | 6f 72 20 63 68 61 6e 67 |\.Menu f|or chang|
|00001870| 69 6e 67 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2b |ing mode|-motion+|
|00001880| 20 72 65 6c 69 67 69 6f | 6e 20 61 6e 64 20 6f 74 | religio|n and ot|
|00001890| 68 65 72 20 74 68 69 6e | 67 73 2e 22 29 0a 28 62 |her thin|gs.").(b|
|000018a0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|000018b0| 4d 88 c4 c5 4d 88 c6 c7 | 4d 88 c8 c9 4d 87 22 20 |M...M...|M...M." |
|000018c0| 5b 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2b 2d 61 63 |[mode-mo|tion+-ac|
|000018d0| 74 69 76 65 2d 70 20 23 | 5b 6e 69 6c 20 22 08 39 |tive-p #|[nil ".9|
|000018e0| ab 84 08 c1 3d 87 08 3c | ab 84 c1 08 3e 87 c2 87 |....=..<|....>...|
|000018f0| 22 20 5b 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2d 68 |" [mode-|motion-h|
|00001900| 6f 6f 6b 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2b |ook mode|-motion+|
|00001910| 2d 68 69 67 68 6c 69 67 | 68 74 20 6e 69 6c 5d 20 |-highlig|ht nil] |
|00001920| 32 5d 20 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2b 2d |2] mode-|motion+-|
|00001930| 62 75 66 66 65 72 2d 68 | 61 6e 64 6c 65 72 2d 72 |buffer-h|andler-r|
|00001940| 65 6c 69 67 69 6f 6e 20 | 23 5b 28 62 75 66 66 65 |eligion |#[(buffe|
|00001950| 72 29 20 22 c0 c1 c2 20 | 21 21 89 1b c4 c5 c6 0b |r) "... |!!......|
|00001960| 5c 22 4f 1e 07 c8 0e 07 | 21 2a 87 22 20 5b 73 79 |\"O.....|!*." [sy|
|00001970| 6d 62 6f 6c 2d 6e 61 6d | 65 20 6d 6f 74 69 6f 6e |mbol-nam|e motion|
|00001980| 2d 68 61 6e 64 6c 65 72 | 2d 6e 61 6d 65 20 67 65 |-handler|-name ge|
|00001990| 74 2d 63 75 72 72 65 6e | 74 2d 6d 6f 74 69 6f 6e |t-curren|t-motion|
|000019a0| 2d 68 61 6e 64 6c 65 72 | 20 63 75 72 72 65 6e 74 |-handler| current|
|000019b0| 2d 68 61 6e 64 6c 65 72 | 2d 6e 61 6d 65 20 30 20 |-handler|-name 0 |
|000019c0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 2d 22 |string-m|atch "-"|
|000019d0| 20 72 65 6c 69 67 69 6f | 6e 2d 6e 61 6d 65 20 69 | religio|n-name i|
|000019e0| 6e 74 65 72 6e 2d 73 6f | 66 74 5d 20 36 5d 20 6d |ntern-so|ft] 6] m|
|000019f0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2b 2d 6d 6f 64 65 |ode-moti|on+-mode|
|00001a00| 2d 68 61 6e 64 6c 65 72 | 2d 72 65 6c 69 67 69 6f |-handler|-religio|
|00001a10| 6e 20 23 5b 28 62 75 66 | 66 65 72 29 20 22 08 c1 |n #[(buf|fer) "..|
|00001a20| 4e ae 81 5c 6e 1b c4 c5 | 0b 21 21 89 1e 06 c7 c8 |N..\n...|.!!.....|
|00001a30| c9 0e 06 5c 22 4f 1e 5c | 6e cb 0e 5c 6e 21 2b 87 |...\"O.\|n..\n!+.|
|00001a40| 22 20 5b 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 6d 6f |" [major|-mode mo|
|00001a50| 64 65 2d 6d 6f 74 69 6f | 6e 2d 68 61 6e 64 6c 65 |de-motio|n-handle|
|00001a60| 72 20 64 65 66 61 75 6c | 74 2d 6d 6f 74 69 6f 6e |r defaul|t-motion|
|00001a70| 2d 68 61 6e 64 6c 65 72 | 20 6d 6f 64 65 2d 68 61 |-handler| mode-ha|
|00001a80| 6e 64 6c 65 72 20 73 79 | 6d 62 6f 6c 2d 6e 61 6d |ndler sy|mbol-nam|
|00001a90| 65 20 6d 6f 74 69 6f 6e | 2d 68 61 6e 64 6c 65 72 |e motion|-handler|
|00001aa0| 2d 6e 61 6d 65 20 63 75 | 72 72 65 6e 74 2d 68 61 |-name cu|rrent-ha|
|00001ab0| 6e 64 6c 65 72 20 30 20 | 73 74 72 69 6e 67 2d 6d |ndler 0 |string-m|
|00001ac0| 61 74 63 68 20 22 2d 22 | 20 72 65 6c 69 67 69 6f |atch "-"| religio|
|00001ad0| 6e 20 69 6e 74 65 72 6e | 2d 73 6f 66 74 5d 20 36 |n intern|-soft] 6|
|00001ae0| 5d 20 6d 6f 64 69 66 79 | 2d 62 75 66 66 65 72 2d |] modify|-buffer-|
|00001af0| 6d 6f 74 69 6f 6e 2d 68 | 61 6e 64 6c 65 72 20 23 |motion-h|andler #|
|00001b00| 5b 28 62 75 66 66 65 72 | 20 72 65 6c 69 67 69 6f |[(buffer| religio|
|00001b10| 6e 29 20 22 c0 c1 c2 20 | 21 21 89 1b c4 c5 0b 5c |n) "... |!!.....\|
|00001b20| 22 c6 4f 1e 07 c8 0e 09 | ca c0 0e 0b 21 0e 07 50 |".O.....|....!..P|
|00001b30| 21 5c 22 2a 87 22 20 5b | 73 79 6d 62 6f 6c 2d 6e |!\"*." [|symbol-n|
|00001b40| 61 6d 65 20 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |ame moti|on-handl|
|00001b50| 65 72 2d 6e 61 6d 65 20 | 67 65 74 2d 63 75 72 72 |er-name |get-curr|
|00001b60| 65 6e 74 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |ent-moti|on-handl|
|00001b70| 65 72 20 63 75 72 72 65 | 6e 74 2d 68 61 6e 64 6c |er curre|nt-handl|
|00001b80| 65 72 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |er strin|g-match |
|00001b90| 22 2d 22 20 6e 69 6c 20 | 73 75 66 66 69 78 20 73 |"-" nil |suffix s|
|00001ba0| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 74 69 6f 6e |et-buffe|r-motion|
|00001bb0| 2d 68 61 6e 64 6c 65 72 | 20 62 75 66 66 65 72 20 |-handler| buffer |
|00001bc0| 69 6e 74 65 72 6e 2d 73 | 6f 66 74 20 72 65 6c 69 |intern-s|oft reli|
|00001bd0| 67 69 6f 6e 5d 20 36 5d | 20 6d 6f 64 69 66 79 2d |gion] 6]| modify-|
|00001be0| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |mode-mot|ion-hand|
|00001bf0| 6c 65 72 20 23 5b 28 6d | 6f 64 65 20 72 65 6c 69 |ler #[(m|ode reli|
|00001c00| 67 69 6f 6e 29 20 22 08 | c1 4e ae 81 5c 6e 1b c4 |gion) ".|.N..\n..|
|00001c10| c5 0b 21 21 89 1e 06 c7 | c8 0e 06 5c 22 c9 4f 1e |..!!....|...\".O.|
|00001c20| 5c 6e cb 0e 0c cd c4 0e | 0e 21 0e 5c 6e 50 21 5c |\n......|.!.\nP!\|
|00001c30| 22 2b 87 22 20 5b 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |"+." [ma|jor-mode|
|00001c40| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2d 68 61 6e | mode-mo|tion-han|
|00001c50| 64 6c 65 72 20 64 65 66 | 61 75 6c 74 2d 6d 6f 74 |dler def|ault-mot|
|00001c60| 69 6f 6e 2d 68 61 6e 64 | 6c 65 72 20 6d 6f 64 65 |ion-hand|ler mode|
|00001c70| 2d 68 61 6e 64 6c 65 72 | 20 73 79 6d 62 6f 6c 2d |-handler| symbol-|
|00001c80| 6e 61 6d 65 20 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |name mot|ion-hand|
|00001c90| 6c 65 72 2d 6e 61 6d 65 | 20 63 75 72 72 65 6e 74 |ler-name| current|
|00001ca0| 2d 68 61 6e 64 6c 65 72 | 20 73 74 72 69 6e 67 2d |-handler| string-|
|00001cb0| 6d 61 74 63 68 20 22 2d | 22 20 6e 69 6c 20 73 75 |match "-|" nil su|
|00001cc0| 66 66 69 78 20 73 65 74 | 2d 6d 6f 64 65 2d 6d 6f |ffix set|-mode-mo|
|00001cd0| 74 69 6f 6e 2d 68 61 6e | 64 6c 65 72 20 6d 6f 64 |tion-han|dler mod|
|00001ce0| 65 20 69 6e 74 65 72 6e | 2d 73 6f 66 74 20 72 65 |e intern|-soft re|
|00001cf0| 6c 69 67 69 6f 6e 5d 20 | 36 5d 5d 20 32 29 0a 28 |ligion] |6]] 2).(|
|00001d00| 66 73 65 74 20 27 6d 6f | 64 65 2d 6d 6f 74 69 6f |fset 'mo|de-motio|
|00001d10| 6e 2b 2d 73 65 6e 73 69 | 74 69 7a 65 2d 6f 70 74 |n+-sensi|tize-opt|
|00001d20| 69 6f 6e 73 2d 6d 65 6e | 75 2d 68 6f 6f 6b 20 23 |ions-men|u-hook #|
|00001d30| 5b 6e 69 6c 20 22 c0 09 | c2 5c 22 40 41 1b c0 0b |[nil "..|.\"@A...|
|00001d40| c4 5c 22 1d c0 0b c6 5c | 22 1e 07 0d c8 c9 ca cb |.\"....\|".......|
|00001d50| 21 5c 22 a0 88 0e 07 c8 | cc 0e 0d 5c 22 a0 88 2b |!\".....|...\"..+|
|00001d60| cb 87 22 20 5b 66 69 6e | 64 2d 6d 65 6e 75 2d 69 |.." [fin|d-menu-i|
|00001d70| 74 65 6d 20 63 75 72 72 | 65 6e 74 2d 6d 65 6e 75 |tem curr|ent-menu|
|00001d80| 62 61 72 20 28 22 4f 70 | 74 69 6f 6e 73 22 20 22 |bar ("Op|tions" "|
|00001d90| 4d 6f 74 69 6f 6e 20 48 | 69 67 68 6c 69 67 68 74 |Motion H|ighlight|
|00001da0| 69 6e 67 22 29 20 6d 6d | 2b 2d 6d 65 6e 75 20 28 |ing") mm|+-menu (|
|00001db0| 22 46 6f 72 20 43 75 72 | 72 65 6e 74 20 42 75 66 |"For Cur|rent Buf|
|00001dc0| 66 65 72 22 29 20 62 75 | 66 66 65 72 2d 69 74 65 |fer") bu|ffer-ite|
|00001dd0| 6d 20 28 22 46 6f 72 20 | 43 75 72 72 65 6e 74 20 |m ("For |Current |
|00001de0| 4d 6f 64 65 22 29 20 6d | 6f 64 65 2d 69 74 65 6d |Mode") m|ode-item|
|00001df0| 20 66 6f 72 6d 61 74 20 | 22 46 6f 72 20 42 75 66 | format |"For Buf|
|00001e00| 66 65 72 20 60 25 73 27 | 22 20 62 75 66 66 65 72 |fer `%s'|" buffer|
|00001e10| 2d 6e 61 6d 65 20 6e 69 | 6c 20 22 46 6f 72 20 4d |-name ni|l "For M|
|00001e20| 6f 64 65 20 60 25 73 27 | 22 20 6d 61 6a 6f 72 2d |ode `%s'|" major-|
|00001e30| 6d 6f 64 65 5d 20 35 20 | 22 5c 0a 48 6f 6f 6b 20 |mode] 5 |"\.Hook |
|00001e40| 66 75 6e 63 74 69 6f 6e | 20 74 68 61 74 20 77 69 |function| that wi|
|00001e50| 6c 6c 20 61 64 6a 75 73 | 74 20 74 69 74 6c 65 20 |ll adjus|t title |
|00001e60| 69 74 65 6d 73 20 69 6e | 20 74 68 65 20 6d 6f 64 |items in| the mod|
|00001e70| 65 2d 6d 6f 74 69 6f 6e | 2b 20 73 75 62 6d 65 6e |e-motion|+ submen|
|00001e80| 75 20 69 6e 20 4f 70 74 | 69 6f 6e 73 22 5d 29 0a |u in Opt|ions"]).|
|00001e90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4d 88 |(byte-co|de "..M.|
|00001ea0| c0 c2 4e c3 3e ac 85 c4 | c5 c0 5c 22 88 c6 c0 c2 |..N.>...|..\"....|
|00001eb0| c7 23 88 c8 c9 4d 88 c8 | c2 4e c3 3e ac 85 c4 c5 |.#...M..|.N.>....|
|00001ec0| c8 5c 22 88 c6 c8 c2 c7 | 23 88 ca cb 4d 88 ca c2 |.\".....|#...M...|
|00001ed0| 4e c3 3e ac 85 c4 c5 ca | 5c 22 88 c6 ca c2 c7 23 |N.>.....|\".....#|
|00001ee0| 88 cc cd 4d 88 cc c2 4e | c3 3e ac 85 c4 c5 cc 5c |...M...N|.>.....\|
|00001ef0| 22 88 c6 cc c2 c7 23 88 | ce cf 4d 88 ce c2 4e c3 |".....#.|..M...N.|
|00001f00| 3e ac 85 c4 c5 ce 5c 22 | 88 c6 ce c2 c7 23 88 d0 |>.....\"|.....#..|
|00001f10| d1 4d 88 d0 c2 4e c3 3e | ac 85 c4 c5 d0 5c 22 88 |.M...N.>|.....\".|
|00001f20| c6 d0 c2 c7 23 88 d2 d3 | 4d 88 d2 c2 4e c3 3e ac |....#...|M...N.>.|
|00001f30| 85 c4 c5 d2 5c 22 88 c6 | d2 c2 c7 23 88 d4 d5 4d |....\"..|...#...M|
|00001f40| 88 d4 c2 4e c3 3e ac 85 | c4 c5 d4 5c 22 88 c6 d4 |...N.>..|...\"...|
|00001f50| c2 c7 23 88 d6 d7 4d 88 | d6 c2 4e c3 3e ac 85 c4 |..#...M.|..N.>...|
|00001f60| c5 d6 5c 22 88 c6 d6 c2 | c7 23 87 22 20 5b 6d 6f |..\"....|.#." [mo|
|00001f70| 74 69 6f 6e 2d 68 61 6e | 64 6c 65 72 2d 6e 61 6d |tion-han|dler-nam|
|00001f80| 65 20 23 5b 28 68 61 6e | 64 6c 65 72 29 20 22 08 |e #[(han|dler) ".|
|00001f90| c1 48 87 22 20 5b 68 61 | 6e 64 6c 65 72 20 30 5d |.H." [ha|ndler 0]|
|00001fa0| 20 32 5d 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a | 2] byte|-optimiz|
|00001fb0| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00001fc0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00001fd0| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00001fe0| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00001ff0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00002000| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00002010| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00002020| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00002030| 20 6d 6f 74 69 6f 6e 2d | 68 61 6e 64 6c 65 72 2d | motion-|handler-|
|00002040| 62 6f 75 6e 64 61 72 79 | 2d 66 75 6e 63 74 69 6f |boundary|-functio|
|00002050| 6e 20 23 5b 28 68 61 6e | 64 6c 65 72 29 20 22 08 |n #[(han|dler) ".|
|00002060| c1 48 87 22 20 5b 68 61 | 6e 64 6c 65 72 20 31 5d |.H." [ha|ndler 1]|
|00002070| 20 32 5d 20 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c | 2] moti|on-handl|
|00002080| 65 72 2d 66 61 63 65 20 | 23 5b 28 68 61 6e 64 6c |er-face |#[(handl|
|00002090| 65 72 29 20 22 08 c1 48 | 87 22 20 5b 68 61 6e 64 |er) "..H|." [hand|
|000020a0| 6c 65 72 20 32 5d 20 32 | 5d 20 6d 6f 74 69 6f 6e |ler 2] 2|] motion|
|000020b0| 2d 68 61 6e 64 6c 65 72 | 2d 68 69 67 68 6c 69 67 |-handler|-highlig|
|000020c0| 68 74 20 23 5b 28 68 61 | 6e 64 6c 65 72 29 20 22 |ht #[(ha|ndler) "|
|000020d0| 08 c1 48 87 22 20 5b 68 | 61 6e 64 6c 65 72 20 33 |..H." [h|andler 3|
|000020e0| 5d 20 32 5d 20 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |] 2] mot|ion-hand|
|000020f0| 6c 65 72 2d 66 6f 6c 6c | 6f 77 2d 70 6f 69 6e 74 |ler-foll|ow-point|
|00002100| 20 23 5b 28 68 61 6e 64 | 6c 65 72 29 20 22 08 c1 | #[(hand|ler) "..|
|00002110| 48 87 22 20 5b 68 61 6e | 64 6c 65 72 20 34 5d 20 |H." [han|dler 4] |
|00002120| 32 5d 20 73 65 74 2d 6d | 6f 74 69 6f 6e 2d 68 61 |2] set-m|otion-ha|
|00002130| 6e 64 6c 65 72 2d 62 6f | 75 6e 64 61 72 79 2d 66 |ndler-bo|undary-f|
|00002140| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 68 61 6e 64 6c |unction |#[(handl|
|00002150| 65 72 20 78 29 20 22 08 | c1 5c 6e 49 87 22 20 5b |er x) ".|.\nI." [|
|00002160| 68 61 6e 64 6c 65 72 20 | 31 20 78 5d 20 33 5d 20 |handler |1 x] 3] |
|00002170| 73 65 74 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |set-moti|on-handl|
|00002180| 65 72 2d 66 61 63 65 20 | 23 5b 28 68 61 6e 64 6c |er-face |#[(handl|
|00002190| 65 72 20 78 29 20 22 08 | c1 5c 6e 49 87 22 20 5b |er x) ".|.\nI." [|
|000021a0| 68 61 6e 64 6c 65 72 20 | 32 20 78 5d 20 33 5d 20 |handler |2 x] 3] |
|000021b0| 73 65 74 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |set-moti|on-handl|
|000021c0| 65 72 2d 68 69 67 68 6c | 69 67 68 74 20 23 5b 28 |er-highl|ight #[(|
|000021d0| 68 61 6e 64 6c 65 72 20 | 78 29 20 22 08 c1 5c 6e |handler |x) "..\n|
|000021e0| 49 87 22 20 5b 68 61 6e | 64 6c 65 72 20 33 20 78 |I." [han|dler 3 x|
|000021f0| 5d 20 33 5d 20 73 65 74 | 2d 6d 6f 74 69 6f 6e 2d |] 3] set|-motion-|
|00002200| 68 61 6e 64 6c 65 72 2d | 66 6f 6c 6c 6f 77 2d 70 |handler-|follow-p|
|00002210| 6f 69 6e 74 20 23 5b 28 | 68 61 6e 64 6c 65 72 20 |oint #[(|handler |
|00002220| 78 29 20 22 08 c1 5c 6e | 49 87 22 20 5b 68 61 6e |x) "..\n|I." [han|
|00002230| 64 6c 65 72 20 34 20 78 | 5d 20 33 5d 5d 20 34 29 |dler 4 x|] 3]] 4)|
|00002240| 0a 28 64 65 66 76 61 72 | 20 6d 6f 74 69 6f 6e 2d |.(defvar| motion-|
|00002250| 68 61 6e 64 6c 65 72 2d | 61 6c 69 73 74 20 6e 69 |handler-|alist ni|
|00002260| 6c 20 22 5c 0a 41 6c 69 | 73 74 20 77 69 74 68 20 |l "\.Ali|st with |
|00002270| 65 6e 74 72 69 65 73 20 | 6f 66 20 74 68 65 20 66 |entries |of the f|
|00002280| 6f 72 6d 20 28 3c 6e 61 | 6d 65 3e 20 2e 20 3c 68 |orm (<na|me> . <h|
|00002290| 61 6e 64 6c 65 72 3e 29 | 2e 22 29 0a 28 64 65 66 |andler>)|.").(def|
|000022a0| 76 61 72 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2d |var mode|-motion-|
|000022b0| 75 73 65 2d 6d 69 6e 69 | 62 75 66 66 65 72 2d 6d |use-mini|buffer-m|
|000022c0| 6f 74 69 6f 6e 2d 68 61 | 6e 64 6c 65 72 20 74 20 |otion-ha|ndler t |
|000022d0| 22 5c 0a 2a 45 6e 61 62 | 6c 65 20 6d 6f 75 73 61 |"\.*Enab|le mousa|
|000022e0| 62 6c 65 20 68 69 67 68 | 6c 69 67 68 74 69 6e 67 |ble high|lighting|
|000022f0| 20 77 68 65 6e 20 74 68 | 65 20 6d 69 6e 69 62 75 | when th|e minibu|
|00002300| 66 66 65 72 20 69 73 20 | 61 63 74 69 76 65 2e 20 |ffer is |active. |
|00002310| 57 68 65 6e 20 66 61 6c | 73 65 20 6f 6e 6c 79 20 |When fal|se only |
|00002320| 65 78 74 65 6e 74 73 20 | 77 69 74 68 20 74 68 65 |extents |with the|
|00002330| 0a 68 69 67 68 6c 69 67 | 68 74 20 70 72 6f 70 65 |.highlig|ht prope|
|00002340| 72 74 79 20 61 72 65 20 | 73 65 6c 65 63 74 61 62 |rty are |selectab|
|00002350| 6c 65 20 28 2a 43 6f 6d | 70 6c 65 74 69 6f 6e 2a |le (*Com|pletion*|
|00002360| 29 22 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)").(byt|e-code "|
|00002370| c0 c1 21 ac 82 c2 11 c3 | c1 21 88 c0 c4 21 ac 82 |..!.....|.!...!..|
|00002380| c2 14 c3 c4 21 87 22 20 | 5b 62 6f 75 6e 64 70 20 |....!." |[boundp |
|00002390| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 65 78 74 65 |mode-mot|ion-exte|
|000023a0| 6e 74 20 6e 69 6c 20 6d | 61 6b 65 2d 76 61 72 69 |nt nil m|ake-vari|
|000023b0| 61 62 6c 65 2d 62 75 66 | 66 65 72 2d 6c 6f 63 61 |able-buf|fer-loca|
|000023c0| 6c 20 62 75 66 66 65 72 | 2d 6d 6f 74 69 6f 6e 2d |l buffer|-motion-|
|000023d0| 68 61 6e 64 6c 65 72 5d | 20 32 29 0a 28 64 65 66 |handler]| 2).(def|
|000023e0| 76 61 72 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2d |var mode|-motion-|
|000023f0| 6c 61 73 74 2d 65 78 74 | 65 6e 74 20 6e 69 6c 20 |last-ext|ent nil |
|00002400| 22 5c 0a 54 68 65 20 6c | 61 73 74 20 75 73 65 64 |"\.The l|ast used|
|00002410| 20 6d 6f 64 65 20 6d 6f | 74 69 6f 6e 20 65 78 74 | mode mo|tion ext|
|00002420| 65 6e 74 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ent.").(|byte-cod|
|00002430| 65 20 22 c0 c1 21 ac 82 | c2 11 c3 c4 4d 88 c5 c6 |e "..!..|....M...|
|00002440| 4d 88 c5 c7 4e c8 3e ac | 85 c9 ca c5 5c 22 88 cb |M...N.>.|....\"..|
|00002450| c5 c7 cc 23 87 22 20 5b | 62 6f 75 6e 64 70 20 64 |...#." [|boundp d|
|00002460| 65 66 61 75 6c 74 2d 6d | 6f 74 69 6f 6e 2d 68 61 |efault-m|otion-ha|
|00002470| 6e 64 6c 65 72 20 6e 69 | 6c 20 66 69 6e 64 2d 6d |ndler ni|l find-m|
|00002480| 6f 74 69 6f 6e 2d 68 61 | 6e 64 6c 65 72 20 23 5b |otion-ha|ndler #[|
|00002490| 28 6e 61 6d 65 29 20 22 | 08 39 ac 84 c1 08 21 10 |(name) "|.9....!.|
|000024a0| 08 5c 6e 9e 41 87 22 20 | 5b 6e 61 6d 65 20 69 6e |.\n.A." |[name in|
|000024b0| 74 65 72 6e 2d 73 6f 66 | 74 20 6d 6f 74 69 6f 6e |tern-sof|t motion|
|000024c0| 2d 68 61 6e 64 6c 65 72 | 2d 61 6c 69 73 74 5d 20 |-handler|-alist] |
|000024d0| 32 5d 20 6d 61 6b 65 2d | 6d 6f 74 69 6f 6e 2d 68 |2] make-|motion-h|
|000024e0| 61 6e 64 6c 65 72 2d 69 | 6e 74 65 72 6e 61 6c 20 |andler-i|nternal |
|000024f0| 23 5b 28 6e 61 6d 65 20 | 62 6f 75 6e 64 61 72 79 |#[(name |boundary|
|00002500| 2d 66 75 6e 63 74 69 6f | 6e 20 66 61 63 65 20 68 |-functio|n face h|
|00002510| 69 67 68 6c 69 67 68 74 | 20 66 6f 6c 6c 6f 77 2d |ighlight| follow-|
|00002520| 63 75 72 73 6f 72 29 20 | 22 c0 09 5c 6e c3 0c 21 |cursor) |"..\n..!|
|00002530| 0d 0e 06 25 87 22 20 5b | 76 65 63 74 6f 72 20 6e |...%." [|vector n|
|00002540| 61 6d 65 20 62 6f 75 6e | 64 61 72 79 2d 66 75 6e |ame boun|dary-fun|
|00002550| 63 74 69 6f 6e 20 67 65 | 74 2d 66 61 63 65 20 66 |ction ge|t-face f|
|00002560| 61 63 65 20 68 69 67 68 | 6c 69 67 68 74 20 66 6f |ace high|light fo|
|00002570| 6c 6c 6f 77 2d 63 75 72 | 73 6f 72 5d 20 36 5d 20 |llow-cur|sor] 6] |
|00002580| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 20 28 |byte-opt|imizer (|
|00002590| 6e 69 6c 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |nil byte|-compile|
|000025a0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 20 |-inline-|expand) |
|000025b0| 65 72 72 6f 72 20 22 25 | 73 20 61 6c 72 65 61 64 |error "%|s alread|
|000025c0| 79 20 68 61 73 20 61 20 | 62 79 74 65 2d 6f 70 74 |y has a |byte-opt|
|000025d0| 69 6d 69 7a 65 72 2c 20 | 63 61 6e 27 74 20 6d 61 |imizer, |can't ma|
|000025e0| 6b 65 20 69 74 20 69 6e | 6c 69 6e 65 22 20 70 75 |ke it in|line" pu|
|000025f0| 74 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |t byte-c|ompile-i|
|00002600| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 5d 20 34 29 |nline-ex|pand] 4)|
|00002610| 0a 28 66 73 65 74 20 27 | 6d 61 6b 65 2d 6d 6f 74 |.(fset '|make-mot|
|00002620| 69 6f 6e 2d 68 61 6e 64 | 6c 65 72 20 23 5b 28 6e |ion-hand|ler #[(n|
|00002630| 61 6d 65 20 62 6f 75 6e | 64 61 72 79 2d 66 75 6e |ame boun|dary-fun|
|00002640| 63 74 69 6f 6e 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ction &o|ptional |
|00002650| 66 61 63 65 20 68 69 67 | 68 6c 69 67 68 74 20 66 |face hig|hlight f|
|00002660| 6f 6c 6c 6f 77 2d 63 75 | 72 73 6f 72 29 20 22 08 |ollow-cu|rsor) ".|
|00002670| ac 84 c1 c2 21 88 08 39 | ac 89 08 3b ac 85 c1 c3 |....!..9|...;....|
|00002680| 08 5c 22 88 0c ac 84 c1 | c5 21 88 c6 0c 21 ac 85 |.\".....|.!...!..|
|00002690| c1 c7 0c 5c 22 88 0e 08 | ac 83 c9 16 08 08 0e 5c |...\"...|.......\|
|000026a0| 6e 9e 41 cb 1e 0c 89 1e | 0d ab bf 0e 0d 0c 1e 0e |n.A.....|........|
|000026b0| 89 1e 0f d0 0e 0e 49 88 | 2a 0e 0d d1 0e 08 21 1e |......I.|*.....!.|
|000026c0| 0e 89 1e 0f d2 0e 0e 49 | 88 2a 0e 0d 0e 13 1e 0e |.......I|.*......|
|000026d0| 89 1e 0f d4 0e 0e 49 88 | 2a 0e 0d 0e 15 1e 0e 89 |......I.|*.......|
|000026e0| 1e 0f d6 0e 0e 49 88 2a | aa a9 08 89 0c d1 0e 08 |.....I.*|........|
|000026f0| 21 0e 13 0e 15 1e 15 1e | 13 1e 08 1c 18 d7 08 0c |!.......|........|
|00002700| d1 0e 08 21 0e 13 0e 15 | 25 2d 89 16 0c 42 0e 5c |...!....|%-...B.\|
|00002710| 6e 42 16 5c 6e 0e 0d ae | 82 0e 0c 2a 87 22 20 5b |nB.\n...|...*." [|
|00002720| 6e 61 6d 65 20 65 72 72 | 6f 72 20 22 6d 6f 74 69 |name err|or "moti|
|00002730| 6f 6e 20 68 61 6e 64 6c | 65 72 20 6e 61 6d 65 20 |on handl|er name |
|00002740| 72 65 71 75 69 72 65 64 | 2e 22 20 22 6d 6f 74 69 |required|." "moti|
|00002750| 6f 6e 20 68 61 6e 64 6c | 65 72 20 6e 61 6d 65 20 |on handl|er name |
|00002760| 6d 75 73 74 20 62 65 20 | 61 20 73 74 72 69 6e 67 |must be |a string|
|00002770| 20 6f 72 20 73 79 6d 62 | 6f 6c 3a 20 25 73 22 20 | or symb|ol: %s" |
|00002780| 62 6f 75 6e 64 61 72 79 | 2d 66 75 6e 63 74 69 6f |boundary|-functio|
|00002790| 6e 20 22 6d 6f 74 69 6f | 6e 20 68 61 6e 64 6c 65 |n "motio|n handle|
|000027a0| 72 20 72 65 67 69 6f 6e | 20 66 75 6e 63 74 69 6f |r region| functio|
|000027b0| 6e 20 72 65 71 75 69 72 | 65 64 2e 22 20 66 62 6f |n requir|ed." fbo|
|000027c0| 75 6e 64 70 20 22 6e 6f | 74 20 61 20 66 75 6e 63 |undp "no|t a func|
|000027d0| 74 69 6f 6e 3a 20 25 73 | 2e 22 20 66 61 63 65 20 |tion: %s|." face |
|000027e0| 64 65 66 61 75 6c 74 20 | 6d 6f 74 69 6f 6e 2d 68 |default |motion-h|
|000027f0| 61 6e 64 6c 65 72 2d 61 | 6c 69 73 74 20 6e 69 6c |andler-a|list nil|
|00002800| 20 6e 65 77 2d 68 61 6e | 64 6c 65 72 20 6f 6c 64 | new-han|dler old|
|00002810| 2d 68 61 6e 64 6c 65 72 | 20 78 20 68 61 6e 64 6c |-handler| x handl|
|00002820| 65 72 20 31 20 67 65 74 | 2d 66 61 63 65 20 32 20 |er 1 get|-face 2 |
|00002830| 68 69 67 68 6c 69 67 68 | 74 20 33 20 66 6f 6c 6c |highligh|t 3 foll|
|00002840| 6f 77 2d 63 75 72 73 6f | 72 20 34 20 76 65 63 74 |ow-curso|r 4 vect|
|00002850| 6f 72 5d 20 38 20 22 5c | 0a 43 72 65 61 74 65 20 |or] 8 "\|.Create |
|00002860| 61 20 6d 6f 74 69 6f 6e | 20 68 61 6e 64 6c 65 72 |a motion| handler|
|00002870| 20 6e 61 6d 65 64 20 4e | 41 4d 45 20 28 61 20 73 | named N|AME (a s|
|00002880| 79 6d 62 6f 6c 20 6f 72 | 20 73 74 72 69 6e 67 29 |ymbol or| string)|
|00002890| 20 75 73 69 6e 67 20 52 | 45 47 49 4f 4e 2d 46 55 | using R|EGION-FU|
|000028a0| 4e 43 54 49 4f 4e 2e 0a | 0a 52 45 47 49 4f 4e 2d |NCTION..|.REGION-|
|000028b0| 46 55 4e 43 54 49 4f 4e | 20 69 73 20 74 68 65 20 |FUNCTION| is the |
|000028c0| 66 75 6e 63 74 69 6f 6e | 20 74 68 61 74 20 63 6f |function| that co|
|000028d0| 6d 70 75 74 65 73 20 74 | 68 65 20 72 65 67 69 6f |mputes t|he regio|
|000028e0| 6e 20 74 6f 20 62 65 20 | 68 69 67 68 6c 69 67 68 |n to be |highligh|
|000028f0| 74 65 64 2e 20 0a 4f 70 | 74 69 6f 6e 61 6c 20 61 |ted. .Op|tional a|
|00002900| 72 67 75 6d 65 6e 74 73 | 20 61 72 65 3a 20 0a 0a |rguments| are: ..|
|00002910| 46 41 43 45 3a 20 41 20 | 66 61 63 65 20 6f 72 20 |FACE: A |face or |
|00002920| 66 61 63 65 20 6e 61 6d | 65 20 74 6f 20 62 65 20 |face nam|e to be |
|00002930| 75 73 65 64 20 74 6f 20 | 68 69 67 68 6c 69 67 68 |used to |highligh|
|00002940| 74 20 74 68 65 20 72 65 | 67 69 6f 6e 20 63 6f 6d |t the re|gion com|
|00002950| 70 75 74 65 64 0a 20 20 | 20 20 20 20 62 79 20 52 |puted. | by R|
|00002960| 45 47 49 4f 4e 2d 46 55 | 4e 43 54 49 4f 4e 2e 20 |EGION-FU|NCTION. |
|00002970| 20 27 64 65 66 61 75 6c | 74 20 69 73 20 74 68 65 | 'defaul|t is the|
|00002980| 20 64 65 66 61 75 6c 74 | 2e 0a 20 20 20 20 20 20 | default|.. |
|00002990| 0a 48 49 47 48 4c 49 47 | 48 54 3a 20 46 6c 61 67 |.HIGHLIG|HT: Flag|
|000029a0| 20 74 68 61 74 20 69 6e | 64 69 63 61 74 65 73 20 | that in|dicates |
|000029b0| 77 68 65 74 68 65 72 20 | 74 68 65 20 68 69 67 68 |whether |the high|
|000029c0| 6c 69 67 68 74 20 61 74 | 74 72 69 62 75 74 65 20 |light at|tribute |
|000029d0| 6f 66 20 74 68 65 0a 20 | 20 20 20 20 20 6d 6f 64 |of the. | mod|
|000029e0| 65 2d 6d 6f 74 69 6f 6e | 2d 65 78 74 65 6e 74 20 |e-motion|-extent |
|000029f0| 73 68 6f 75 6c 64 20 62 | 65 20 73 65 74 20 6f 72 |should b|e set or|
|00002a00| 20 6e 6f 74 2e 20 49 66 | 20 46 41 43 45 20 69 73 | not. If| FACE is|
|00002a10| 20 74 68 65 20 64 65 66 | 61 75 6c 74 20 66 61 63 | the def|ault fac|
|00002a20| 65 2c 20 0a 20 20 20 20 | 20 20 48 49 47 48 4c 49 |e, . | HIGHLI|
|00002a30| 47 48 54 20 64 65 66 61 | 75 6c 74 73 20 74 6f 20 |GHT defa|ults to |
|00002a40| 74 2c 20 6f 74 68 65 72 | 77 69 73 65 20 74 6f 20 |t, other|wise to |
|00002a50| 6e 69 6c 2e 0a 0a 46 4f | 4c 4c 4f 57 2d 43 55 52 |nil...FO|LLOW-CUR|
|00002a60| 53 4f 52 3a 20 46 6c 61 | 67 20 74 68 61 74 20 69 |SOR: Fla|g that i|
|00002a70| 6e 64 69 63 61 74 65 73 | 20 77 68 65 74 68 65 72 |ndicates| whether|
|00002a80| 20 74 68 65 20 63 75 72 | 73 6f 72 20 73 68 6f 75 | the cur|sor shou|
|00002a90| 6c 64 20 66 6f 6c 6c 6f | 77 0a 20 20 20 20 20 20 |ld follo|w. |
|00002aa0| 74 68 65 20 6d 6f 75 73 | 65 20 6d 6f 74 69 6f 6e |the mous|e motion|
|00002ab0| 2e 20 44 65 66 61 75 6c | 74 20 69 73 20 6e 69 6c |. Defaul|t is nil|
|00002ac0| 2e 22 5d 29 0a 28 64 65 | 66 76 61 72 20 6c 69 73 |."]).(de|fvar lis|
|00002ad0| 74 2d 6d 6f 74 69 6f 6e | 2d 68 61 6e 64 6c 65 72 |t-motion|-handler|
|00002ae0| 73 2d 62 75 66 66 65 72 | 2d 74 6f 2d 63 75 73 74 |s-buffer|-to-cust|
|00002af0| 6f 6d 69 7a 65 20 6e 69 | 6c 20 22 5c 0a 4e 61 6d |omize ni|l "\.Nam|
|00002b00| 65 20 6f 66 20 62 75 66 | 66 65 72 20 66 72 6f 6d |e of buf|fer from|
|00002b10| 20 77 68 65 72 65 20 6c | 69 73 74 2d 6d 6f 74 69 | where l|ist-moti|
|00002b20| 6f 6e 2d 68 61 6e 64 6c | 65 72 73 20 77 61 73 20 |on-handl|ers was |
|00002b30| 63 61 6c 6c 65 64 2e 22 | 29 0a 28 6d 61 6b 65 2d |called."|).(make-|
|00002b40| 76 61 72 69 61 62 6c 65 | 2d 62 75 66 66 65 72 2d |variable|-buffer-|
|00002b50| 6c 6f 63 61 6c 20 27 6c | 69 73 74 2d 6d 6f 74 69 |local 'l|ist-moti|
|00002b60| 6f 6e 2d 68 61 6e 64 6c | 65 72 73 2d 62 75 66 66 |on-handl|ers-buff|
|00002b70| 65 72 2d 74 6f 2d 63 75 | 73 74 6f 6d 69 7a 65 29 |er-to-cu|stomize)|
|00002b80| 0a 28 64 65 66 76 61 72 | 20 6c 69 73 74 2d 6d 6f |.(defvar| list-mo|
|00002b90| 74 69 6f 6e 2d 68 61 6e | 64 6c 65 72 73 2d 62 75 |tion-han|dlers-bu|
|00002ba0| 66 66 65 72 2d 6d 6f 64 | 65 20 6e 69 6c 20 22 5c |ffer-mod|e nil "\|
|00002bb0| 0a 4e 61 6d 65 20 6f 66 | 20 6d 6f 64 65 20 6f 66 |.Name of| mode of|
|00002bc0| 20 62 75 66 66 65 72 20 | 66 72 6f 6d 20 77 68 65 | buffer |from whe|
|00002bd0| 72 65 20 6c 69 73 74 2d | 6d 6f 74 69 6f 6e 2d 68 |re list-|motion-h|
|00002be0| 61 6e 64 6c 65 72 73 20 | 77 61 73 20 63 61 6c 6c |andlers |was call|
|00002bf0| 65 64 2e 22 29 0a 28 6d | 61 6b 65 2d 76 61 72 69 |ed.").(m|ake-vari|
|00002c00| 61 62 6c 65 2d 62 75 66 | 66 65 72 2d 6c 6f 63 61 |able-buf|fer-loca|
|00002c10| 6c 20 27 6c 69 73 74 2d | 6d 6f 74 69 6f 6e 2d 68 |l 'list-|motion-h|
|00002c20| 61 6e 64 6c 65 72 73 2d | 62 75 66 66 65 72 2d 6d |andlers-|buffer-m|
|00002c30| 6f 64 65 29 0a 28 64 65 | 66 76 61 72 20 62 61 73 |ode).(de|fvar bas|
|00002c40| 69 63 2d 6d 6f 74 69 6f | 6e 2d 68 61 6e 64 6c 65 |ic-motio|n-handle|
|00002c50| 72 73 20 28 6c 69 73 74 | 20 27 6d 6f 64 65 2d 6d |rs (list| 'mode-m|
|00002c60| 6f 74 69 6f 6e 2d 68 69 | 67 68 6c 69 67 68 74 2d |otion-hi|ghlight-|
|00002c70| 6c 69 6e 65 20 27 6d 6f | 64 65 2d 6d 6f 74 69 6f |line 'mo|de-motio|
|00002c80| 6e 2d 68 69 67 68 6c 69 | 67 68 74 2d 77 6f 72 64 |n-highli|ght-word|
|00002c90| 20 27 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 68 69 | 'mode-m|otion-hi|
|00002ca0| 67 68 6c 69 67 68 74 2d | 73 79 6d 62 6f 6c 20 27 |ghlight-|symbol '|
|00002cb0| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 68 69 67 68 |mode-mot|ion-high|
|00002cc0| 6c 69 67 68 74 2d 73 65 | 78 70 29 20 22 5c 0a 54 |light-se|xp) "\.T|
|00002cd0| 68 65 20 62 61 73 69 63 | 20 6d 6f 74 69 6f 6e 20 |he basic| motion |
|00002ce0| 68 61 6e 64 6c 65 72 73 | 20 70 72 6f 76 69 64 65 |handlers| provide|
|00002cf0| 64 20 62 79 20 74 68 65 | 20 75 6e 64 65 72 6c 79 |d by the| underly|
|00002d00| 69 6e 67 20 58 45 6d 61 | 63 73 2e 22 29 0a 28 66 |ing XEma|cs.").(f|
|00002d10| 73 65 74 20 27 6c 69 73 | 74 2d 6d 6f 74 69 6f 6e |set 'lis|t-motion|
|00002d20| 2d 68 61 6e 64 6c 65 72 | 73 20 23 5b 6e 69 6c 20 |-handler|s #[nil |
|00002d30| 22 c0 20 70 09 5c 6e 39 | ab 86 5c 6e 0b 3e 40 aa |". p.\n9|..\n.>@.|
|00002d40| 8f 5c 6e 3c ad 8b 5c 6e | 47 c4 9a ad 85 5c 6e 40 |.\n<..\n|G....\n@|
|00002d50| 0b 3e 40 1d 1e 06 1e 07 | 1e 08 8a c9 90 ca 1e 0b |.>@.....|........|
|00002d60| c9 71 88 0e 07 16 0c 0e | 06 16 0d ce cf d0 d1 d2 |.q......|........|
|00002d70| d3 0e 14 5c 22 d5 5c 22 | 1e 16 1e 17 1e 18 1e 19 |...\".\"|........|
|00002d80| 0d ab cb c4 da 20 1e 1b | 89 1e 1c 0e 1b 57 ab 8c |..... ..|.....W..|
|00002d90| dd de 21 88 0e 1c 54 89 | 16 1c aa 6f dd df 21 88 |..!...T.|...o..!.|
|00002da0| dd e0 21 88 dd 0d 21 88 | dd e1 21 88 e2 0d 21 63 |..!...!.|..!...!c|
|00002db0| 88 dd e3 21 88 c4 16 1c | c4 0e 1b 57 ab 8c dd de |...!....|...W....|
|00002dc0| 21 88 0e 1c 54 89 16 1c | aa 6f e4 20 88 2a dd e5 |!...T...|.o. .*..|
|00002dd0| 21 88 dd e6 21 88 d2 e7 | 0e 16 5c 22 88 dd e8 e9 |!...!...|..\"....|
|00002de0| 0e 0c 5c 22 21 88 2d ea | eb ec 5c 22 88 ca 89 16 |..\"!.-.|..\"....|
|00002df0| 2d 91 2d 87 22 20 5b 67 | 65 74 2d 63 75 72 72 65 |-.-." [g|et-curre|
|00002e00| 6e 74 2d 6d 6f 74 69 6f | 6e 2d 68 61 6e 64 6c 65 |nt-motio|n-handle|
|00002e10| 72 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 6d 6f 64 |r major-|mode mod|
|00002e20| 65 2d 6d 6f 74 69 6f 6e | 2d 68 6f 6f 6b 20 62 61 |e-motion|-hook ba|
|00002e30| 73 69 63 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |sic-moti|on-handl|
|00002e40| 65 72 73 20 31 20 62 6d | 6d 68 20 62 75 66 66 65 |ers 1 bm|mh buffe|
|00002e50| 72 2d 6d 6f 64 65 20 62 | 75 66 66 65 72 20 63 75 |r-mode b|uffer cu|
|00002e60| 72 72 65 6e 74 2d 68 61 | 6e 64 6c 65 72 20 22 2a |rrent-ha|ndler "*|
|00002e70| 4d 6f 75 73 65 20 4d 6f | 74 69 6f 6e 20 48 61 6e |Mouse Mo|tion Han|
|00002e80| 64 6c 65 72 73 2a 22 20 | 74 20 74 72 75 6e 63 61 |dlers*" |t trunca|
|00002e90| 74 65 2d 6c 69 6e 65 73 | 20 6c 69 73 74 2d 6d 6f |te-lines| list-mo|
|00002ea0| 74 69 6f 6e 2d 68 61 6e | 64 6c 65 72 73 2d 62 75 |tion-han|dlers-bu|
|00002eb0| 66 66 65 72 2d 74 6f 2d | 63 75 73 74 6f 6d 69 7a |ffer-to-|customiz|
|00002ec0| 65 20 6c 69 73 74 2d 6d | 6f 74 69 6f 6e 2d 68 61 |e list-m|otion-ha|
|00002ed0| 6e 64 6c 65 72 73 2d 62 | 75 66 66 65 72 2d 6d 6f |ndlers-b|uffer-mo|
|00002ee0| 64 65 20 35 20 32 35 20 | 35 30 20 73 6f 72 74 20 |de 5 25 |50 sort |
|00002ef0| 6d 61 70 63 61 72 20 63 | 64 72 20 6d 6f 74 69 6f |mapcar c|dr motio|
|00002f00| 6e 2d 68 61 6e 64 6c 65 | 72 2d 61 6c 69 73 74 20 |n-handle|r-alist |
|00002f10| 28 6c 61 6d 62 64 61 20 | 28 78 20 79 29 20 28 73 |(lambda |(x y) (s|
|00002f20| 74 72 69 6e 67 3c 20 28 | 73 79 6d 62 6f 6c 2d 6e |tring< (|symbol-n|
|00002f30| 61 6d 65 20 28 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |ame (mot|ion-hand|
|00002f40| 6c 65 72 2d 62 6f 75 6e | 64 61 72 79 2d 66 75 6e |ler-boun|dary-fun|
|00002f50| 63 74 69 6f 6e 20 78 29 | 29 20 28 73 79 6d 62 6f |ction x)|) (symbo|
|00002f60| 6c 2d 6e 61 6d 65 20 28 | 6d 6f 74 69 6f 6e 2d 68 |l-name (|motion-h|
|00002f70| 61 6e 64 6c 65 72 2d 62 | 6f 75 6e 64 61 72 79 2d |andler-b|oundary-|
|00002f80| 66 75 6e 63 74 69 6f 6e | 20 79 29 29 29 29 20 68 |function| y)))) h|
|00002f90| 61 6e 64 6c 65 72 73 20 | 70 6f 73 33 20 70 6f 73 |andlers |pos3 pos|
|00002fa0| 32 20 70 6f 73 31 20 66 | 72 61 6d 65 2d 77 69 64 |2 pos1 f|rame-wid|
|00002fb0| 74 68 20 66 77 20 69 20 | 70 72 69 6e 63 20 22 2a |th fw i |princ "*|
|00002fc0| 22 20 22 5c 6e 4e 6f 74 | 65 3a 20 74 68 69 73 20 |" "\nNot|e: this |
|00002fd0| 62 75 66 66 65 72 20 69 | 73 20 6e 6f 74 20 75 73 |buffer i|s not us|
|00002fe0| 69 6e 67 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2b |ing mode|-motion+|
|00002ff0| 2e 5c 6e 5c 6e 22 20 22 | 49 74 27 73 20 75 73 69 |.\n\n" "|It's usi|
|00003000| 6e 67 20 74 68 65 20 60 | 22 20 22 27 20 6d 6f 74 |ng the `|" "' mot|
|00003010| 69 6f 6e 20 68 61 6e 64 | 6c 65 72 20 77 68 69 63 |ion hand|ler whic|
|00003020| 68 20 63 6c 61 69 6d 73 | 20 69 74 27 73 3a 5c 6e |h claims| it's:\n|
|00003030| 22 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |" docume|ntation |
|00003040| 22 5c 6e 53 65 74 74 69 | 6e 67 20 74 68 69 73 20 |"\nSetti|ng this |
|00003050| 6d 6f 74 69 6f 6e 20 68 | 61 6e 64 6c 65 72 20 77 |motion h|andler w|
|00003060| 69 6c 6c 20 62 65 20 69 | 72 72 65 76 6f 63 61 62 |ill be i|rrevocab|
|00003070| 6c 65 20 66 72 6f 6d 20 | 74 68 69 73 20 69 6e 74 |le from |this int|
|00003080| 65 72 66 61 63 65 5c 6e | 28 62 75 74 20 6f 6e 6c |erface\n|(but onl|
|00003090| 79 20 66 6f 72 20 64 75 | 72 61 74 69 6f 6e 20 6f |y for du|ration o|
|000030a0| 66 20 74 68 69 73 20 58 | 45 6d 61 63 73 20 73 65 |f this X|Emacs se|
|000030b0| 73 73 69 6f 6e 29 2e 5c | 6e 22 20 74 65 72 70 72 |ssion).\|n" terpr|
|000030c0| 69 20 22 20 20 20 20 20 | 4e 41 4d 45 20 20 20 20 |i " |NAME |
|000030d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 4f 55 4e | | BOUN|
|000030e0| 44 41 52 59 20 46 55 4e | 43 54 49 4f 4e 20 20 20 |DARY FUN|CTION |
|000030f0| 20 20 20 20 20 46 41 43 | 45 5c 6e 22 20 22 20 20 | FAC|E\n" " |
|00003100| 20 20 20 2d 2d 2d 2d 20 | 20 20 20 20 20 20 20 20 | ---- | |
|00003110| 20 20 20 20 20 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -|--------|
|00003120| 2d 2d 2d 2d 2d 2d 2d 2d | 20 20 20 20 20 20 20 20 |--------| |
|00003130| 2d 2d 2d 2d 5c 6e 22 20 | 23 5b 28 68 61 6e 64 6c |----\n" |#[(handl|
|00003140| 65 72 29 20 22 60 18 c1 | 5c 6e ac 88 0b 0c 3d ab |er) "`..|\n....=.|
|00003150| 83 c5 aa 81 c6 21 88 c1 | 0b 0e 07 3d ab 83 c8 aa |.....!..|...=....|
|00003160| 81 c6 21 88 c1 0b 89 1b | c9 48 29 ab 83 ca aa 81 |..!.....|.H).....|
|00003170| c6 21 88 c1 0b 89 1b cb | 48 29 ab 83 cc aa 81 c6 |.!......|H)......|
|00003180| 21 88 cd 0e 0e cf 5c 22 | 88 c1 0b 89 1b d0 48 29 |!.....\"|......H)|
|00003190| 21 88 cd 0e 11 cf 5c 22 | 88 c1 0b 89 1b cf 48 29 |!.....\"|......H)|
|000031a0| 21 88 0e 12 6a 88 60 1e | 13 c1 d4 0b 89 1b d5 48 |!...j.`.|.......H|
|000031b0| 29 21 21 88 d6 08 0e 13 | 5c 22 d6 0e 13 60 5c 22 |)!!.....|\"...`\"|
|000031c0| 1e 17 1e 18 d9 0e 17 0b | 89 1b d5 48 29 5c 22 88 |........|...H)\".|
|000031d0| da 0e 17 db 0b 89 1b d0 | 48 29 23 88 da 0e 18 db |........|H)#.....|
|000031e0| 0b 89 1b d0 48 29 23 88 | da 0e 18 dc dd 23 88 2b |....H)#.|.....#.+|
|000031f0| de 20 29 87 22 20 5b 6c | 69 6e 65 2d 73 74 61 72 |. )." [l|ine-star|
|00003200| 74 20 70 72 69 6e 63 20 | 62 6d 6d 68 20 68 61 6e |t princ |bmmh han|
|00003210| 64 6c 65 72 20 63 75 72 | 72 65 6e 74 2d 68 61 6e |dler cur|rent-han|
|00003220| 64 6c 65 72 20 22 2a 22 | 20 22 20 22 20 64 65 66 |dler "*"| " " def|
|00003230| 61 75 6c 74 2d 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |ault-mot|ion-hand|
|00003240| 6c 65 72 20 22 44 22 20 | 33 20 22 48 22 20 34 20 |ler "D" |3 "H" 4 |
|00003250| 22 46 22 20 69 6e 64 65 | 6e 74 2d 74 6f 2d 63 6f |"F" inde|nt-to-co|
|00003260| 6c 75 6d 6e 20 70 6f 73 | 31 20 31 20 30 20 70 6f |lumn pos|1 1 0 po|
|00003270| 73 32 20 70 6f 73 33 20 | 66 61 63 65 2d 73 74 61 |s2 pos3 |face-sta|
|00003280| 72 74 20 66 61 63 65 2d | 6e 61 6d 65 20 32 20 6d |rt face-|name 2 m|
|00003290| 61 6b 65 2d 65 78 74 65 | 6e 74 20 66 61 63 65 2d |ake-exte|nt face-|
|000032a0| 65 78 74 65 6e 74 20 6c | 69 6e 65 2d 65 78 74 65 |extent l|ine-exte|
|000032b0| 6e 74 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 66 61 |nt set-e|xtent-fa|
|000032c0| 63 65 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 70 72 |ce set-e|xtent-pr|
|000032d0| 6f 70 65 72 74 79 20 6d | 6f 64 65 2d 6d 6f 74 69 |operty m|ode-moti|
|000032e0| 6f 6e 2d 68 61 6e 64 6c | 65 72 20 68 69 67 68 6c |on-handl|er highl|
|000032f0| 69 67 68 74 20 74 20 74 | 65 72 70 72 69 5d 20 36 |ight t t|erpri] 6|
|00003300| 5d 20 66 6f 72 6d 61 74 | 20 22 5c 6e 46 6c 61 67 |] format| "\nFlag|
|00003310| 73 3a 09 60 44 27 20 74 | 68 65 20 64 65 66 61 75 |s:.`D' t|he defau|
|00003320| 6c 74 20 6d 6f 74 69 6f | 6e 20 68 61 6e 64 6c 65 |lt motio|n handle|
|00003330| 72 5c 6e 20 20 20 20 20 | 20 20 09 60 48 27 20 68 |r\n | .`H' h|
|00003340| 61 6e 64 6c 65 72 20 77 | 69 74 68 20 68 69 67 68 |andler w|ith high|
|00003350| 6c 69 67 68 74 69 6e 67 | 5c 6e 09 60 46 27 20 68 |lighting|\n.`F' h|
|00003360| 61 6e 64 6c 65 72 20 77 | 69 74 68 20 60 66 6f 6c |andler w|ith `fol|
|00003370| 6c 6f 77 69 6e 67 27 20 | 70 72 6f 70 65 72 74 79 |lowing' |property|
|00003380| 5c 6e 09 60 2a 27 20 74 | 68 65 20 6d 6f 74 69 6f |\n.`*' t|he motio|
|00003390| 6e 20 68 61 6e 64 6c 65 | 72 20 6f 66 20 62 75 66 |n handle|r of buf|
|000033a0| 66 65 72 20 5c 22 25 73 | 5c 22 22 20 6c 6f 63 61 |fer \"%s|\"" loca|
|000033b0| 6c 2d 73 65 74 2d 6b 65 | 79 20 62 75 74 74 6f 6e |l-set-ke|y button|
|000033c0| 33 20 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 73 65 |3 mode-m|otion-se|
|000033d0| 74 2d 68 61 6e 64 6c 65 | 72 20 62 75 66 66 65 72 |t-handle|r buffer|
|000033e0| 2d 72 65 61 64 2d 6f 6e | 6c 79 5d 20 39 20 22 5c |-read-on|ly] 9 "\|
|000033f0| 0a 44 69 73 70 6c 61 79 | 20 61 20 6c 69 73 74 20 |.Display| a list |
|00003400| 6f 66 20 61 76 61 69 6c | 61 62 6c 65 20 6d 6f 74 |of avail|able mot|
|00003410| 69 6f 6e 20 68 61 6e 64 | 6c 65 72 73 2e 0a 54 68 |ion hand|lers..Th|
|00003420| 65 20 6c 69 73 74 69 6e | 67 20 69 73 20 69 6e 20 |e listin|g is in |
|00003430| 74 61 62 75 6c 61 72 20 | 66 6f 72 6d 20 61 6e 64 |tabular |form and|
|00003440| 20 63 6f 6e 74 61 69 6e | 73 20 74 68 65 20 66 6f | contain|s the fo|
|00003450| 6c 6c 6f 77 69 6e 67 20 | 63 6f 6c 75 6d 6e 73 3a |llowing |columns:|
|00003460| 0a 4e 41 4d 45 3a 20 74 | 68 65 20 6d 6f 74 69 6f |.NAME: t|he motio|
|00003470| 6e 20 68 61 6e 64 6c 65 | 72 73 20 6e 61 6d 65 2c |n handle|rs name,|
|00003480| 0a 42 4f 55 4e 44 41 52 | 59 20 46 55 4e 43 54 49 |.BOUNDAR|Y FUNCTI|
|00003490| 4f 4e 3a 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |ON: the |name of |
|000034a0| 74 68 65 20 66 75 6e 74 | 69 6f 6e 20 75 73 65 64 |the funt|ion used|
|000034b0| 20 74 6f 20 63 6f 6d 70 | 75 74 65 20 74 68 65 20 | to comp|ute the |
|000034c0| 74 65 78 74 20 20 0a 20 | 20 20 68 69 67 68 6c 69 |text . | highli|
|000034d0| 67 68 74 65 64 20 62 79 | 20 74 68 65 20 6d 6f 74 |ghted by| the mot|
|000034e0| 69 6f 6e 20 68 61 6e 64 | 6c 65 72 2c 0a 46 41 43 |ion hand|ler,.FAC|
|000034f0| 45 3a 20 74 68 65 20 66 | 61 63 65 20 75 73 65 64 |E: the f|ace used|
|00003500| 20 74 6f 20 68 69 67 68 | 6c 69 67 68 74 20 74 68 | to high|light th|
|00003510| 65 20 74 65 78 74 2e 0a | 0a 41 64 64 69 74 69 6f |e text..|.Additio|
|00003520| 6e 61 6c 6c 79 2c 20 74 | 68 65 20 66 6f 6c 6c 6f |nally, t|he follo|
|00003530| 77 69 6e 67 20 66 6c 61 | 67 73 20 61 72 65 20 75 |wing fla|gs are u|
|00003540| 73 65 64 20 61 74 20 74 | 68 65 20 62 65 67 69 6e |sed at t|he begin|
|00003550| 6e 69 6e 67 20 6f 66 20 | 65 61 63 68 20 6c 69 6e |ning of |each lin|
|00003560| 65 3a 0a 60 2a 27 20 4d | 61 72 6b 73 20 74 68 65 |e:.`*' M|arks the|
|00003570| 20 6d 6f 74 69 6f 6e 20 | 68 61 6e 64 6c 65 72 20 | motion |handler |
|00003580| 63 75 72 72 65 6e 74 20 | 74 6f 20 74 68 65 20 62 |current |to the b|
|00003590| 75 66 66 65 72 20 74 68 | 69 73 20 66 75 6e 63 74 |uffer th|is funct|
|000035a0| 69 6f 6e 73 20 77 61 73 | 20 63 61 6c 6c 65 64 20 |ions was| called |
|000035b0| 0a 20 20 20 20 66 72 6f | 6d 2e 0a 60 48 27 20 46 |. fro|m..`H' F|
|000035c0| 6f 72 63 65 20 68 69 67 | 68 6c 69 67 68 74 69 6e |orce hig|hlightin|
|000035d0| 67 20 6f 66 20 74 68 65 | 20 73 65 6c 65 63 74 65 |g of the| selecte|
|000035e0| 64 20 74 65 78 74 2e 0a | 60 46 27 20 4d 61 6b 65 |d text..|`F' Make|
|000035f0| 20 70 6f 69 6e 74 20 66 | 6f 6c 6c 6f 77 20 74 68 | point f|ollow th|
|00003600| 65 20 6d 6f 75 73 65 20 | 63 75 72 73 6f 72 20 61 |e mouse |cursor a|
|00003610| 73 20 69 74 20 6d 6f 76 | 65 73 2e 22 20 6e 69 6c |s it mov|es." nil|
|00003620| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00003630| c1 4d 88 c2 c3 4d 87 22 | 20 5b 6d 6f 64 65 2d 6d |.M...M."| [mode-m|
|00003640| 6f 74 69 6f 6e 2d 73 65 | 74 2d 68 61 6e 64 6c 65 |otion-se|t-handle|
|00003650| 72 20 23 5b 28 65 76 65 | 6e 74 29 20 22 c0 c1 c2 |r #[(eve|nt) "...|
|00003660| 0b 21 70 c4 23 c4 5c 22 | ae 83 c5 c6 21 1e 07 c8 |.!p.#.\"|....!...|
|00003670| c9 0e 07 5c 22 ca c8 cb | 0e 0c 5c 22 cd ce 0e 0c |...\"...|..\"....|
|00003680| 44 ce 0e 07 44 45 cf 23 | ca d0 d1 ce 0e 07 44 44 |D...DE.#|......DD|
|00003690| cf 23 d2 ca c8 d3 0e 14 | 5c 22 d5 d6 ce 0e 14 44 |.#......|\".....D|
|000036a0| ce 0e 07 44 45 d7 d8 d9 | da db dc dd de ce 0e 14 |...DE...|........|
|000036b0| 44 df 42 42 e0 42 42 46 | 44 e1 42 42 44 45 cf 23 |D.BB.BBF|D.BBDE.#|
|000036c0| ca e2 e3 ce 0e 07 44 44 | cf 23 d2 ca e4 e5 ce 0e |......DD|.#......|
|000036d0| 07 44 44 cf 23 af 08 1e | 26 e7 0e 26 21 2a 87 22 |.DD.#...|&..&!*."|
|000036e0| 20 5b 65 78 74 65 6e 74 | 2d 70 72 6f 70 65 72 74 | [extent|-propert|
|000036f0| 79 20 65 78 74 65 6e 74 | 2d 61 74 20 65 76 65 6e |y extent|-at even|
|00003700| 74 2d 70 6f 69 6e 74 20 | 65 76 65 6e 74 20 6d 6f |t-point |event mo|
|00003710| 64 65 2d 6d 6f 74 69 6f | 6e 2d 68 61 6e 64 6c 65 |de-motio|n-handle|
|00003720| 72 20 65 72 72 6f 72 20 | 22 43 6c 69 63 6b 20 6f |r error |"Click o|
|00003730| 6e 20 68 69 67 68 6c 69 | 67 68 74 65 64 20 6c 69 |n highli|ghted li|
|00003740| 6e 65 20 74 6f 20 73 65 | 6c 65 63 74 20 61 20 68 |ne to se|lect a h|
|00003750| 61 6e 64 6c 65 72 22 20 | 68 61 6e 64 6c 65 72 20 |andler" |handler |
|00003760| 66 6f 72 6d 61 74 20 22 | 4d 61 6b 65 20 60 25 73 |format "|Make `%s|
|00003770| 27 20 74 68 65 20 4d 6f | 74 69 6f 6e 20 48 61 6e |' the Mo|tion Han|
|00003780| 64 6c 65 72 20 6f 66 20 | 3a 22 20 76 65 63 74 6f |dler of |:" vecto|
|00003790| 72 20 22 42 75 66 66 65 | 72 20 25 73 22 20 6c 69 |r "Buffe|r %s" li|
|000037a0| 73 74 2d 6d 6f 74 69 6f | 6e 2d 68 61 6e 64 6c 65 |st-motio|n-handle|
|000037b0| 72 73 2d 62 75 66 66 65 | 72 2d 74 6f 2d 63 75 73 |rs-buffe|r-to-cus|
|000037c0| 74 6f 6d 69 7a 65 20 73 | 65 74 2d 62 75 66 66 65 |tomize s|et-buffe|
|000037d0| 72 2d 6d 6f 74 69 6f 6e | 2d 68 61 6e 64 6c 65 72 |r-motion|-handler|
|000037e0| 20 71 75 6f 74 65 20 74 | 20 22 41 6e 6f 74 68 65 | quote t| "Anothe|
|000037f0| 72 20 42 75 66 66 65 72 | 2e 2e 2e 22 20 6d 6f 74 |r Buffer|..." mot|
|00003800| 69 6f 6e 2d 68 61 6e 64 | 6c 65 72 2d 6c 69 73 74 |ion-hand|ler-list|
|00003810| 2d 73 65 74 2d 62 75 66 | 66 65 72 2d 68 61 6e 64 |-set-buf|fer-hand|
|00003820| 6c 65 72 20 22 2d 2d 2d | 22 20 22 4d 6f 64 65 20 |ler "---|" "Mode |
|00003830| 25 73 22 20 6c 69 73 74 | 2d 6d 6f 74 69 6f 6e 2d |%s" list|-motion-|
|00003840| 68 61 6e 64 6c 65 72 73 | 2d 62 75 66 66 65 72 2d |handlers|-buffer-|
|00003850| 6d 6f 64 65 20 70 72 6f | 67 6e 20 73 65 74 2d 6d |mode pro|gn set-m|
|00003860| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |ode-moti|on-handl|
|00003870| 65 72 20 73 61 76 65 2d | 65 78 63 75 72 73 69 6f |er save-|excursio|
|00003880| 6e 20 6d 61 70 63 61 72 | 20 66 75 6e 63 74 69 6f |n mapcar| functio|
|00003890| 6e 20 6c 61 6d 62 64 61 | 20 28 62 75 66 29 20 28 |n lambda| (buf) (|
|000038a0| 73 65 74 2d 62 75 66 66 | 65 72 20 62 75 66 29 20 |set-buff|er buf) |
|000038b0| 61 6e 64 20 65 71 20 28 | 6d 61 6a 6f 72 2d 6d 6f |and eq (|major-mo|
|000038c0| 64 65 29 20 28 28 6d 6f | 64 65 2d 6d 6f 74 69 6f |de) ((mo|de-motio|
|000038d0| 6e 2b 2d 68 6f 6f 6b 2d | 69 6e 73 74 61 6c 6c 20 |n+-hook-|install |
|000038e0| 62 75 66 20 74 29 29 20 | 28 28 62 75 66 66 65 72 |buf t)) |((buffer|
|000038f0| 2d 6c 69 73 74 29 29 20 | 22 41 6e 6f 74 68 65 72 |-list)) |"Another|
|00003900| 20 4d 6f 64 65 2e 2e 2e | 22 20 6d 6f 74 69 6f 6e | Mode...|" motion|
|00003910| 2d 68 61 6e 64 6c 65 72 | 2d 6c 69 73 74 2d 73 65 |-handler|-list-se|
|00003920| 74 2d 6d 6f 64 65 2d 68 | 61 6e 64 6c 65 72 20 22 |t-mode-h|andler "|
|00003930| 44 65 66 61 75 6c 74 20 | 4d 6f 74 69 6f 6e 20 48 |Default |Motion H|
|00003940| 61 6e 64 6c 65 72 22 20 | 73 65 74 2d 64 65 66 61 |andler" |set-defa|
|00003950| 75 6c 74 2d 6d 6f 74 69 | 6f 6e 2d 68 61 6e 64 6c |ult-moti|on-handl|
|00003960| 65 72 20 6d 65 6e 75 20 | 70 6f 70 75 70 2d 6d 65 |er menu |popup-me|
|00003970| 6e 75 5d 20 31 38 20 6e | 69 6c 20 22 40 65 22 5d |nu] 18 n|il "@e"]|
|00003980| 20 6d 6f 74 69 6f 6e 2d | 68 61 6e 64 6c 65 72 2d | motion-|handler-|
|00003990| 6c 69 73 74 2d 73 65 74 | 2d 62 75 66 66 65 72 2d |list-set|-buffer-|
|000039a0| 68 61 6e 64 6c 65 72 20 | 23 5b 28 68 61 6e 64 6c |handler |#[(handl|
|000039b0| 65 72 29 20 22 c0 c1 c2 | 0b 5c 22 c4 0d 21 5c 22 |er) "...|.\"..!\"|
|000039c0| 1e 06 c7 0e 06 0b 5c 22 | 88 8a 0e 06 71 88 0e 08 |......\"|....q...|
|000039d0| 3c ab 86 c9 0e 08 3e aa | 8c 0e 08 39 ab 86 0e 08 |<.....>.|...9....|
|000039e0| c9 3d aa 81 ca 3f ad 8f | cb c1 cc c4 cd 21 5c 22 |.=...?..|.....!\"|
|000039f0| 21 ad 85 ce 0e 06 ca 5c | 22 2a 87 22 20 5b 72 65 |!......\|"*." [re|
|00003a00| 61 64 2d 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 66 |ad-buffe|r-name f|
|00003a10| 6f 72 6d 61 74 20 22 4d | 61 6b 65 20 60 25 73 27 |ormat "M|ake `%s'|
|00003a20| 20 74 68 65 20 6d 6f 74 | 69 6f 6e 20 68 61 6e 64 | the mot|ion hand|
|00003a30| 6c 65 72 20 6f 66 20 62 | 75 66 66 65 72 3a 20 22 |ler of b|uffer: "|
|00003a40| 20 68 61 6e 64 6c 65 72 | 20 62 75 66 66 65 72 2d | handler| buffer-|
|00003a50| 6e 61 6d 65 20 6c 69 73 | 74 2d 6d 6f 74 69 6f 6e |name lis|t-motion|
|00003a60| 2d 68 61 6e 64 6c 65 72 | 73 2d 62 75 66 66 65 72 |-handler|s-buffer|
|00003a70| 2d 74 6f 2d 63 75 73 74 | 6f 6d 69 7a 65 20 62 75 |-to-cust|omize bu|
|00003a80| 66 66 65 72 20 73 65 74 | 2d 62 75 66 66 65 72 2d |ffer set|-buffer-|
|00003a90| 6d 6f 74 69 6f 6e 2d 68 | 61 6e 64 6c 65 72 20 6d |motion-h|andler m|
|00003aa0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 6f 6f 6b 20 |ode-moti|on-hook |
|00003ab0| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2b 2d 68 69 67 |mode-mot|ion+-hig|
|00003ac0| 68 6c 69 67 68 74 20 74 | 20 79 2d 6f 72 2d 6e 2d |hlight t| y-or-n-|
|00003ad0| 70 20 22 41 75 67 6d 65 | 6e 74 20 74 68 65 20 64 |p "Augme|nt the d|
|00003ae0| 65 66 61 75 6c 74 20 6d | 6f 64 65 20 6d 6f 74 69 |efault m|ode moti|
|00003af0| 6f 6e 20 68 6f 6f 6b 20 | 66 6f 72 20 60 25 73 27 |on hook |for `%s'|
|00003b00| 3f 20 22 20 6e 69 6c 20 | 6d 6f 64 65 2d 6d 6f 74 |? " nil |mode-mot|
|00003b10| 69 6f 6e 2b 2d 68 6f 6f | 6b 2d 69 6e 73 74 61 6c |ion+-hoo|k-instal|
|00003b20| 6c 5d 20 35 5d 5d 20 32 | 29 0a 28 64 65 66 76 61 |l] 5]] 2|).(defva|
|00003b30| 72 20 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2b 2d 70 |r mode-m|otion+-p|
|00003b40| 72 65 76 69 6f 75 73 2d | 68 6f 6f 6b 20 6e 69 6c |revious-|hook nil|
|00003b50| 20 22 5c 0a 56 61 6c 75 | 65 20 6f 66 20 70 72 65 | "\.Valu|e of pre|
|00003b60| 76 69 6f 75 73 20 60 6d | 6f 64 65 2d 6d 6f 74 69 |vious `m|ode-moti|
|00003b70| 6f 6e 2d 68 6f 6f 6b 27 | 20 69 6e 20 63 75 72 72 |on-hook'| in curr|
|00003b80| 65 6e 74 20 62 75 66 66 | 65 72 2e 22 29 0a 28 62 |ent buff|er.").(b|
|00003b90| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c2 c3 |yte-code| "..!...|
|00003ba0| 4d 87 22 20 5b 6d 61 6b | 65 2d 76 61 72 69 61 62 |M." [mak|e-variab|
|00003bb0| 6c 65 2d 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 20 |le-buffe|r-local |
|00003bc0| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2b 2d 70 72 65 |mode-mot|ion+-pre|
|00003bd0| 76 69 6f 75 73 2d 68 6f | 6f 6b 20 6d 6f 74 69 6f |vious-ho|ok motio|
|00003be0| 6e 2d 68 61 6e 64 6c 65 | 72 2d 6c 69 73 74 2d 73 |n-handle|r-list-s|
|00003bf0| 65 74 2d 6d 6f 64 65 2d | 68 61 6e 64 6c 65 72 20 |et-mode-|handler |
|00003c00| 23 5b 28 68 61 6e 64 6c | 65 72 29 20 22 c0 c1 c2 |#[(handl|er) "...|
|00003c10| c3 0c 5c 22 0d c6 c7 c8 | 0e 09 21 25 21 1e 5c 6e |..\"....|..!%!.\n|
|00003c20| cb 0e 5c 6e 0c 5c 22 88 | 8a cc cd ce 20 5c 22 2a |..\n.\".|.... \"*|
|00003c30| 87 22 20 5b 69 6e 74 65 | 72 6e 20 63 6f 6d 70 6c |." [inte|rn compl|
|00003c40| 65 74 69 6e 67 2d 72 65 | 61 64 20 66 6f 72 6d 61 |eting-re|ad forma|
|00003c50| 74 20 22 4d 61 6b 65 20 | 60 25 73 27 20 74 68 65 |t "Make |`%s' the|
|00003c60| 20 6d 6f 74 69 6f 6e 20 | 68 61 6e 64 6c 65 72 20 | motion |handler |
|00003c70| 6f 66 20 6d 6f 64 65 3a | 20 22 20 68 61 6e 64 6c |of mode:| " handl|
|00003c80| 65 72 20 6f 62 61 72 72 | 61 79 20 66 62 6f 75 6e |er obarr|ay fboun|
|00003c90| 64 70 20 74 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |dp t sym|bol-name|
|00003ca0| 20 6c 69 73 74 2d 6d 6f | 74 69 6f 6e 2d 68 61 6e | list-mo|tion-han|
|00003cb0| 64 6c 65 72 73 2d 62 75 | 66 66 65 72 2d 6d 6f 64 |dlers-bu|ffer-mod|
|00003cc0| 65 20 6d 6f 64 65 20 73 | 65 74 2d 6d 6f 64 65 2d |e mode s|et-mode-|
|00003cd0| 6d 6f 74 69 6f 6e 2d 68 | 61 6e 64 6c 65 72 20 6d |motion-h|andler m|
|00003ce0| 61 70 63 61 72 20 23 5b | 28 62 75 66 29 20 22 08 |apcar #[|(buf) ".|
|00003cf0| 71 88 09 5c 6e 3d ad 84 | c3 08 c4 5c 22 87 22 20 |q..\n=..|...\"." |
|00003d00| 5b 62 75 66 20 6d 6f 64 | 65 20 6d 61 6a 6f 72 2d |[buf mod|e major-|
|00003d10| 6d 6f 64 65 20 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |mode mod|e-motion|
|00003d20| 2b 2d 68 6f 6f 6b 2d 69 | 6e 73 74 61 6c 6c 20 74 |+-hook-i|nstall t|
|00003d30| 5d 20 33 5d 20 62 75 66 | 66 65 72 2d 6c 69 73 74 |] 3] buf|fer-list|
|00003d40| 5d 20 38 5d 5d 20 32 29 | 0a 28 66 73 65 74 20 27 |] 8]] 2)|.(fset '|
|00003d50| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2b 2d 68 6f 6f |mode-mot|ion+-hoo|
|00003d60| 6b 2d 69 6e 73 74 61 6c | 6c 20 23 5b 28 26 6f 70 |k-instal|l #[(&op|
|00003d70| 74 69 6f 6e 61 6c 20 62 | 75 66 66 65 72 20 72 65 |tional b|uffer re|
|00003d80| 6d 6f 76 65 2d 68 69 67 | 68 6c 69 67 68 74 2d 6c |move-hig|hlight-l|
|00003d90| 69 6e 65 2d 70 29 20 22 | 08 ae 81 70 10 c1 12 8a |ine-p) "|...p....|
|00003da0| 08 71 88 c3 c4 21 ab 92 | c5 0c 21 ab 85 c6 0c 21 |.q...!..|..!....!|
|00003db0| aa 81 0c 16 07 c8 c7 c9 | 5c 22 88 ca c4 c9 5c 22 |........|\"....\"|
|00003dc0| 88 5c 6e ab 85 c8 c4 cb | 5c 22 88 0e 0c ab 89 cd |.\n.....|\"......|
|00003dd0| 0e 0c 21 ab 83 ce 16 0c | cf d0 0e 11 21 d2 50 21 |..!.....|....!.P!|
|00003de0| 1e 13 c3 0e 13 21 ab 93 | 5c 6e ab 89 ca 0e 13 d4 |.....!..|\n......|
|00003df0| d5 23 88 aa 87 ca 0e 13 | d6 d5 23 88 2a 0c 87 22 |.#......|..#.*.."|
|00003e00| 20 5b 62 75 66 66 65 72 | 20 74 20 72 65 6d 6f 76 | [buffer| t remov|
|00003e10| 65 2d 68 69 67 68 6c 69 | 67 68 74 2d 6c 69 6e 65 |e-highli|ght-line|
|00003e20| 2d 70 20 62 6f 75 6e 64 | 70 20 6d 6f 64 65 2d 6d |-p bound|p mode-m|
|00003e30| 6f 74 69 6f 6e 2d 68 6f | 6f 6b 20 73 65 71 75 65 |otion-ho|ok seque|
|00003e40| 6e 63 65 70 20 63 6f 70 | 79 2d 73 65 71 75 65 6e |ncep cop|y-sequen|
|00003e50| 63 65 20 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2b 2d |ce mode-|motion+-|
|00003e60| 70 72 65 76 69 6f 75 73 | 2d 68 6f 6f 6b 20 72 65 |previous|-hook re|
|00003e70| 6d 6f 76 65 2d 68 6f 6f | 6b 20 6d 6f 64 65 2d 6d |move-hoo|k mode-m|
|00003e80| 6f 74 69 6f 6e 2b 2d 68 | 69 67 68 6c 69 67 68 74 |otion+-h|ighlight|
|00003e90| 20 61 64 64 2d 68 6f 6f | 6b 20 6d 6f 64 65 2d 6d | add-hoo|k mode-m|
|00003ea0| 6f 74 69 6f 6e 2d 68 69 | 67 68 6c 69 67 68 74 2d |otion-hi|ghlight-|
|00003eb0| 6c 69 6e 65 20 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |line mod|e-motion|
|00003ec0| 2d 65 78 74 65 6e 74 20 | 64 65 6c 65 74 65 2d 65 |-extent |delete-e|
|00003ed0| 78 74 65 6e 74 20 6e 69 | 6c 20 69 6e 74 65 72 6e |xtent ni|l intern|
|00003ee0| 2d 73 6f 66 74 20 73 79 | 6d 62 6f 6c 2d 6e 61 6d |-soft sy|mbol-nam|
|00003ef0| 65 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 22 2d 68 |e major-|mode "-h|
|00003f00| 6f 6f 6b 22 20 74 68 69 | 73 2d 6d 6f 64 65 2d 68 |ook" thi|s-mode-h|
|00003f10| 6f 6f 6b 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 5c 22 |ook #[ni|l "...\"|
|00003f20| 87 22 20 5b 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2b |." [mode|-motion+|
|00003f30| 2d 68 6f 6f 6b 2d 69 6e | 73 74 61 6c 6c 20 6e 69 |-hook-in|stall ni|
|00003f40| 6c 20 74 5d 20 33 5d 20 | 61 70 70 65 6e 64 20 6d |l t] 3] |append m|
|00003f50| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2b 2d 68 6f 6f 6b |ode-moti|on+-hook|
|00003f60| 2d 69 6e 73 74 61 6c 6c | 5d 20 34 20 22 5c 0a 41 |-install|] 4 "\.A|
|00003f70| 64 64 20 60 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2b |dd `mode|-motion+|
|00003f80| 2d 68 69 67 68 6c 69 67 | 68 74 27 20 74 6f 20 74 |-highlig|ht' to t|
|00003f90| 68 65 20 42 55 46 46 45 | 52 20 60 6d 6f 64 65 2d |he BUFFE|R `mode-|
|00003fa0| 6d 6f 74 69 6f 6e 2d 68 | 6f 6f 6b 27 2e 0a 49 66 |motion-h|ook'..If|
|00003fb0| 20 74 68 65 20 6f 70 74 | 69 6f 6e 61 6c 20 73 65 | the opt|ional se|
|00003fc0| 63 6f 6e 64 20 61 72 67 | 20 52 45 4d 4f 56 45 2d |cond arg| REMOVE-|
|00003fd0| 48 49 47 48 4c 49 47 48 | 54 2d 4c 49 4e 45 2d 50 |HIGHLIGH|T-LINE-P|
|00003fe0| 20 69 73 20 74 2c 20 72 | 65 6d 6f 76 65 0a 60 6d | is t, r|emove.`m|
|00003ff0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 69 67 68 6c |ode-moti|on-highl|
|00004000| 69 67 68 74 2d 6c 69 6e | 65 27 20 66 72 6f 6d 20 |ight-lin|e' from |
|00004010| 60 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2d 68 6f 6f |`mode-mo|tion-hoo|
|00004020| 6b 27 2e 0a 53 65 65 20 | 60 6d 6f 64 65 2d 6d 6f |k'..See |`mode-mo|
|00004030| 74 69 6f 6e 2b 2d 68 6f | 6f 6b 2d 75 6e 69 6e 73 |tion+-ho|ok-unins|
|00004040| 74 61 6c 6c 27 20 66 6f | 72 20 72 65 76 65 72 74 |tall' fo|r revert|
|00004050| 69 6e 67 20 74 68 69 73 | 20 6f 70 65 72 61 74 69 |ing this| operati|
|00004060| 6f 6e 2e 22 20 22 62 49 | 6e 73 74 61 6c 6c 20 6d |on." "bI|nstall m|
|00004070| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2b 20 68 6f 6f 6b |ode-moti|on+ hook|
|00004080| 20 66 6f 72 20 62 75 66 | 66 65 72 20 3a 5c 6e 58 | for buf|fer :\nX|
|00004090| 52 65 6d 6f 76 65 20 68 | 69 67 68 6c 69 67 68 74 |Remove h|ighlight|
|000040a0| 2d 6c 69 6e 65 20 66 72 | 6f 6d 20 68 6f 6f 6b 20 |-line fr|om hook |
|000040b0| 3f 20 3a 22 5d 29 0a 28 | 66 73 65 74 20 27 6d 6f |? :"]).(|fset 'mo|
|000040c0| 64 65 2d 6d 6f 74 69 6f | 6e 2b 2d 68 6f 6f 6b 2d |de-motio|n+-hook-|
|000040d0| 75 6e 69 6e 73 74 61 6c | 6c 20 23 5b 28 62 75 66 |uninstal|l #[(buf|
|000040e0| 66 65 72 29 20 22 8a 08 | 71 88 09 ab 87 c2 09 21 |fer) "..|q......!|
|000040f0| ab 82 c3 11 c4 c5 21 ab | 9e 0d 16 06 c3 15 c7 c8 |......!.|........|
|00004100| 0e 09 21 ca 50 21 1e 0b | c4 0e 0b 21 ab 86 cc 0e |..!.P!..|...!....|
|00004110| 0b cd 5c 22 88 29 aa 84 | ce cf 21 88 29 0e 06 87 |..\".)..|..!.)...|
|00004120| 22 20 5b 62 75 66 66 65 | 72 20 6d 6f 64 65 2d 6d |" [buffe|r mode-m|
|00004130| 6f 74 69 6f 6e 2d 65 78 | 74 65 6e 74 20 64 65 6c |otion-ex|tent del|
|00004140| 65 74 65 2d 65 78 74 65 | 6e 74 20 6e 69 6c 20 62 |ete-exte|nt nil b|
|00004150| 6f 75 6e 64 70 20 6d 6f | 64 65 2d 6d 6f 74 69 6f |oundp mo|de-motio|
|00004160| 6e 2b 2d 70 72 65 76 69 | 6f 75 73 2d 68 6f 6f 6b |n+-previ|ous-hook|
|00004170| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2d 68 6f 6f | mode-mo|tion-hoo|
|00004180| 6b 20 69 6e 74 65 72 6e | 2d 73 6f 66 74 20 73 79 |k intern|-soft sy|
|00004190| 6d 62 6f 6c 2d 6e 61 6d | 65 20 6d 61 6a 6f 72 2d |mbol-nam|e major-|
|000041a0| 6d 6f 64 65 20 22 2d 68 | 6f 6f 6b 22 20 74 68 69 |mode "-h|ook" thi|
|000041b0| 73 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 20 72 65 6d 6f |s-mode-h|ook remo|
|000041c0| 76 65 2d 68 6f 6f 6b 20 | 6d 6f 64 65 2d 6d 6f 74 |ve-hook |mode-mot|
|000041d0| 69 6f 6e 2b 2d 68 6f 6f | 6b 2d 69 6e 73 74 61 6c |ion+-hoo|k-instal|
|000041e0| 6c 20 65 72 72 6f 72 20 | 22 4e 6f 20 70 72 65 76 |l error |"No prev|
|000041f0| 69 6f 75 73 20 76 61 6c | 75 65 20 66 6f 72 20 6d |ious val|ue for m|
|00004200| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 6f 6f 6b 22 |ode-moti|on-hook"|
|00004210| 5d 20 33 20 22 5c 0a 52 | 65 73 74 6f 72 65 20 74 |] 3 "\.R|estore t|
|00004220| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 60 6d 6f 64 |he value| of `mod|
|00004230| 65 2d 6d 6f 74 69 6f 6e | 2d 68 6f 6f 6b 27 20 69 |e-motion|-hook' i|
|00004240| 6e 20 42 55 46 46 45 52 | 20 74 6f 20 77 68 61 74 |n BUFFER| to what|
|00004250| 20 69 74 20 77 61 73 20 | 61 74 20 74 68 65 20 74 | it was |at the t|
|00004260| 69 6d 65 20 60 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |ime `mod|e-motion|
|00004270| 2b 2d 68 6f 6f 6b 2d 69 | 6e 73 74 61 6c 6c 27 20 |+-hook-i|nstall' |
|00004280| 77 61 73 20 63 61 6c 6c | 65 64 2e 0a 53 65 65 20 |was call|ed..See |
|00004290| 61 6c 73 6f 20 60 6d 6f | 64 65 2d 6d 6f 74 69 6f |also `mo|de-motio|
|000042a0| 6e 2b 2d 68 6f 6f 6b 2d | 69 6e 73 74 61 6c 6c 27 |n+-hook-|install'|
|000042b0| 2e 22 20 22 62 52 65 73 | 74 6f 72 65 20 60 6d 6f |." "bRes|tore `mo|
|000042c0| 64 65 2d 6d 6f 74 69 6f | 6e 2d 68 6f 6f 6b 27 20 |de-motio|n-hook' |
|000042d0| 6f 66 20 62 75 66 66 65 | 72 20 3a 22 5d 29 0a 28 |of buffe|r :"]).(|
|000042e0| 66 73 65 74 20 27 6d 6f | 64 65 2d 6d 6f 74 69 6f |fset 'mo|de-motio|
|000042f0| 6e 2b 2d 6d 6f 74 69 6f | 6e 2d 68 6f 6f 6b 2d 72 |n+-motio|n-hook-r|
|00004300| 65 76 65 72 74 20 23 5b | 28 26 6f 70 74 69 6f 6e |evert #[|(&option|
|00004310| 61 6c 20 62 75 66 66 65 | 72 2d 6f 6e 6c 79 2d 70 |al buffe|r-only-p|
|00004320| 20 62 75 66 66 65 72 20 | 6d 6f 64 65 29 20 22 08 | buffer |mode) ".|
|00004330| ab 84 c1 5c 6e 21 87 8a | c3 c4 c5 20 5c 22 29 87 |...\n!..|... \").|
|00004340| 22 20 5b 62 75 66 66 65 | 72 2d 6f 6e 6c 79 2d 70 |" [buffe|r-only-p|
|00004350| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2b 2d 68 6f | mode-mo|tion+-ho|
|00004360| 6f 6b 2d 75 6e 69 6e 73 | 74 61 6c 6c 20 62 75 66 |ok-unins|tall buf|
|00004370| 66 65 72 20 6d 61 70 63 | 61 72 20 23 5b 28 62 75 |fer mapc|ar #[(bu|
|00004380| 66 29 20 22 08 71 88 09 | 5c 6e 3d ad 83 c3 08 21 |f) ".q..|\n=....!|
|00004390| 87 22 20 5b 62 75 66 20 | 6d 6f 64 65 20 6d 61 6a |." [buf |mode maj|
|000043a0| 6f 72 2d 6d 6f 64 65 20 | 6d 6f 64 65 2d 6d 6f 74 |or-mode |mode-mot|
|000043b0| 69 6f 6e 2b 2d 68 6f 6f | 6b 2d 75 6e 69 6e 73 74 |ion+-hoo|k-uninst|
|000043c0| 61 6c 6c 5d 20 32 5d 20 | 62 75 66 66 65 72 2d 6c |all] 2] |buffer-l|
|000043d0| 69 73 74 5d 20 33 20 22 | 5c 0a 52 65 76 65 72 74 |ist] 3 "|\.Revert|
|000043e0| 20 74 68 65 20 60 6d 6f | 64 65 2d 6d 6f 74 69 6f | the `mo|de-motio|
|000043f0| 6e 2d 68 6f 6f 6b 27 20 | 74 6f 20 69 74 73 20 6f |n-hook' |to its o|
|00004400| 72 69 67 69 6e 61 6c 20 | 76 61 6c 75 65 2e 0a 57 |riginal |value..W|
|00004410| 69 74 68 20 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |ith opti|onal arg|
|00004420| 20 42 55 46 46 45 52 2d | 4f 4e 4c 59 2d 50 20 6e | BUFFER-|ONLY-P n|
|00004430| 6f 6e 2d 6e 69 6c 2c 20 | 6f 6e 6c 79 20 72 65 76 |on-nil, |only rev|
|00004440| 65 72 74 20 69 6e 20 42 | 55 46 46 45 52 0a 28 64 |ert in B|UFFER.(d|
|00004450| 65 66 61 75 6c 74 73 20 | 74 6f 20 60 28 63 75 72 |efaults |to `(cur|
|00004460| 72 65 6e 74 2d 62 75 66 | 66 65 72 29 27 29 3b 20 |rent-buf|fer)'); |
|00004470| 6f 74 68 65 72 77 69 73 | 65 2c 20 72 65 76 65 72 |otherwis|e, rever|
|00004480| 74 20 66 6f 72 20 61 6c | 6c 20 65 78 69 73 74 69 |t for al|l existi|
|00004490| 6e 67 0a 62 75 66 66 65 | 72 73 20 6f 66 20 4d 4f |ng.buffe|rs of MO|
|000044a0| 44 45 20 28 64 65 66 61 | 75 6c 74 73 20 74 6f 20 |DE (defa|ults to |
|000044b0| 60 6d 61 6a 6f 72 2d 6d | 6f 64 65 27 20 6f 66 20 |`major-m|ode' of |
|000044c0| 42 55 46 46 45 52 29 2e | 22 20 28 62 79 74 65 2d |BUFFER).|" (byte-|
|000044d0| 63 6f 64 65 20 22 c0 c1 | 21 89 1a ab 83 70 aa 88 |code "..|!....p..|
|000044e0| c3 c4 c5 c6 70 21 5c 22 | 21 1e 07 5c 6e ab 8a 8a |....p!\"|!..\n...|
|000044f0| 0e 07 71 88 0e 08 29 aa | 8d c9 ca cb 0e 0c cd ce |..q...).|........|
|00004500| cf 0e 08 21 25 21 1e 10 | 5c 6e 0e 07 0e 10 45 2b |...!%!..|\n....E+|
|00004510| 87 22 20 5b 79 2d 6f 72 | 2d 6e 2d 70 20 22 52 65 |." [y-or|-n-p "Re|
|00004520| 76 65 72 74 20 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |vert mod|e-motion|
|00004530| 2d 68 6f 6f 6b 20 6f 6e | 6c 79 20 66 6f 72 20 63 |-hook on|ly for c|
|00004540| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 3f 20 |urrent b|uffer ? |
|00004550| 22 20 62 75 66 66 65 72 | 2d 6f 6e 6c 79 2d 70 20 |" buffer|-only-p |
|00004560| 67 65 74 2d 62 75 66 66 | 65 72 20 72 65 61 64 2d |get-buff|er read-|
|00004570| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 22 52 65 76 |buffer-n|ame "Rev|
|00004580| 65 72 74 20 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2d |ert mode|-motion-|
|00004590| 68 6f 6f 6b 20 6f 66 20 | 62 75 66 66 65 72 20 3a |hook of |buffer :|
|000045a0| 20 22 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 62 | " buffe|r-name b|
|000045b0| 75 66 66 65 72 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |uffer ma|jor-mode|
|000045c0| 20 69 6e 74 65 72 6e 2d | 73 6f 66 74 20 63 6f 6d | intern-|soft com|
|000045d0| 70 6c 65 74 69 6e 67 2d | 72 65 61 64 20 22 4d 61 |pleting-|read "Ma|
|000045e0| 6a 6f 72 20 6d 6f 64 65 | 3a 20 22 20 6f 62 61 72 |jor mode|: " obar|
|000045f0| 72 61 79 20 66 62 6f 75 | 6e 64 70 20 6e 69 6c 20 |ray fbou|ndp nil |
|00004600| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 6d 6f 64 65 |symbol-n|ame mode|
|00004610| 5d 20 39 29 5d 29 0a 28 | 66 73 65 74 20 27 73 65 |] 9)]).(|fset 'se|
|00004620| 74 2d 62 75 66 66 65 72 | 2d 6d 6f 74 69 6f 6e 2d |t-buffer|-motion-|
|00004630| 68 61 6e 64 6c 65 72 20 | 23 5b 28 62 75 66 66 65 |handler |#[(buffe|
|00004640| 72 20 68 61 6e 64 6c 65 | 72 2d 6e 61 6d 65 29 20 |r handle|r-name) |
|00004650| 22 08 ab 86 c1 08 21 88 | c2 10 0b ac 82 70 13 c4 |".....!.|.....p..|
|00004660| 0b 21 ac 85 c5 c6 0b 5c | 22 88 8a 0b 71 88 0e 07 |.!.....\|"...q...|
|00004670| ad 8b c8 0e 07 21 ae 85 | c5 c9 0e 07 5c 22 16 5c |.....!..|....\".\|
|00004680| 6e 29 74 ab 92 0e 07 ab | 89 cb cc 70 0e 07 23 88 |n)t.....|...p..#.|
|00004690| aa 85 cb cd 70 5c 22 88 | 0e 07 87 22 20 5b 6d 6f |....p\".|..." [mo|
|000046a0| 64 65 2d 6d 6f 74 69 6f | 6e 2d 65 78 74 65 6e 74 |de-motio|n-extent|
|000046b0| 20 64 65 74 61 63 68 2d | 65 78 74 65 6e 74 20 6e | detach-|extent n|
|000046c0| 69 6c 20 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |il buffe|r get-bu|
|000046d0| 66 66 65 72 20 65 72 72 | 6f 72 20 22 4e 6f 20 73 |ffer err|or "No s|
|000046e0| 75 63 68 20 62 75 66 66 | 65 72 3a 20 25 73 22 20 |uch buff|er: %s" |
|000046f0| 68 61 6e 64 6c 65 72 2d | 6e 61 6d 65 20 66 69 6e |handler-|name fin|
|00004700| 64 2d 6d 6f 74 69 6f 6e | 2d 68 61 6e 64 6c 65 72 |d-motion|-handler|
|00004710| 20 22 4e 6f 74 20 61 20 | 6b 6e 6f 77 6e 20 6d 6f | "Not a |known mo|
|00004720| 74 69 6f 6e 20 68 61 6e | 64 6c 65 72 3a 20 25 73 |tion han|dler: %s|
|00004730| 22 20 62 75 66 66 65 72 | 2d 6d 6f 74 69 6f 6e 2d |" buffer|-motion-|
|00004740| 68 61 6e 64 6c 65 72 20 | 6d 65 73 73 61 67 65 20 |handler |message |
|00004750| 22 4d 6f 74 69 6f 6e 20 | 68 61 6e 64 6c 65 72 20 |"Motion |handler |
|00004760| 66 6f 72 20 62 75 66 66 | 65 72 20 25 73 20 69 73 |for buff|er %s is|
|00004770| 20 60 25 73 27 2e 22 20 | 22 4d 6f 74 69 6f 6e 20 | `%s'." |"Motion |
|00004780| 68 61 6e 64 6c 65 72 20 | 72 65 6d 6f 76 65 64 20 |handler |removed |
|00004790| 66 6f 72 20 62 75 66 66 | 65 72 20 25 73 2e 22 5d |for buff|er %s."]|
|000047a0| 20 34 20 22 5c 0a 4d 61 | 6b 65 20 74 68 65 20 6d | 4 "\.Ma|ke the m|
|000047b0| 6f 74 69 6f 6e 20 68 61 | 6e 64 6c 65 72 20 6e 61 |otion ha|ndler na|
|000047c0| 6d 65 64 20 48 41 4e 44 | 4c 45 52 2d 4e 41 4d 45 |med HAND|LER-NAME|
|000047d0| 20 28 61 20 73 79 6d 62 | 6f 6c 29 20 74 68 65 20 | (a symb|ol) the |
|000047e0| 62 75 66 66 65 72 0a 6d | 6f 74 69 6f 6e 20 68 61 |buffer.m|otion ha|
|000047f0| 6e 64 6c 65 72 20 6f 66 | 20 42 55 46 46 45 52 2e |ndler of| BUFFER.|
|00004800| 20 20 49 66 20 48 41 4e | 44 4c 45 52 2d 4e 41 4d | If HAN|DLER-NAM|
|00004810| 45 20 69 73 20 6e 69 6c | 2c 20 74 68 65 20 63 6f |E is nil|, the co|
|00004820| 72 72 65 73 70 6f 6e 64 | 69 6e 67 0a 62 75 66 66 |rrespond|ing.buff|
|00004830| 65 72 20 6d 6f 74 69 6f | 6e 20 68 61 6e 64 6c 65 |er motio|n handle|
|00004840| 72 20 69 73 20 72 65 6d | 6f 76 65 64 2e 20 20 49 |r is rem|oved. I|
|00004850| 66 20 48 41 4e 44 4c 45 | 52 2d 4e 41 4d 45 20 69 |f HANDLE|R-NAME i|
|00004860| 73 6e 27 74 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |sn't the| name of|
|00004870| 20 61 0a 6b 6e 6f 77 6e | 20 6d 6f 74 69 6f 6e 20 | a.known| motion |
|00004880| 68 61 6e 64 6c 65 72 2c | 20 61 6e 20 65 72 72 6f |handler,| an erro|
|00004890| 72 20 69 73 20 73 69 67 | 6e 61 6c 65 64 2e 20 57 |r is sig|naled. W|
|000048a0| 68 65 6e 20 63 61 6c 6c | 65 64 20 69 6e 74 65 72 |hen call|ed inter|
|000048b0| 61 63 74 69 76 65 6c 79 | 2c 0a 63 6f 6d 70 6c 65 |actively|,.comple|
|000048c0| 74 69 6f 6e 20 69 73 20 | 70 72 6f 76 69 64 65 64 |tion is |provided|
|000048d0| 20 66 6f 72 20 61 76 61 | 69 6c 61 62 6c 65 20 62 | for ava|ilable b|
|000048e0| 75 66 66 65 72 73 20 61 | 6e 64 20 6d 6f 74 69 6f |uffers a|nd motio|
|000048f0| 6e 20 68 61 6e 64 6c 65 | 72 73 2e 0a 0a 09 31 2e |n handle|rs....1.|
|00004900| 29 20 62 75 66 66 65 72 | 20 6d 6f 74 69 6f 6e 20 |) buffer| motion |
|00004910| 68 61 6e 64 6c 65 72 0a | 09 32 2e 29 20 6d 6f 64 |handler.|.2.) mod|
|00004920| 65 20 6d 6f 74 69 6f 6e | 20 68 61 6e 64 6c 65 72 |e motion| handler|
|00004930| 0a 09 33 2e 29 20 64 65 | 66 61 75 6c 74 20 6d 6f |..3.) de|fault mo|
|00004940| 74 69 6f 6e 20 68 61 6e | 64 6c 65 72 22 20 28 62 |tion han|dler" (b|
|00004950| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 70 21 5c |yte-code| "...p!\|
|00004960| 22 c3 20 44 87 22 20 5b | 72 65 61 64 2d 62 75 66 |". D." [|read-buf|
|00004970| 66 65 72 2d 6e 61 6d 65 | 20 22 53 65 74 20 6d 6f |fer-name| "Set mo|
|00004980| 74 69 6f 6e 20 68 61 6e | 64 6c 65 72 20 6f 66 20 |tion han|dler of |
|00004990| 62 75 66 66 65 72 3a 20 | 22 20 62 75 66 66 65 72 |buffer: |" buffer|
|000049a0| 2d 6e 61 6d 65 20 72 65 | 61 64 2d 6d 6f 74 69 6f |-name re|ad-motio|
|000049b0| 6e 2d 68 61 6e 64 6c 65 | 72 2d 6e 61 6d 65 5d 20 |n-handle|r-name] |
|000049c0| 34 29 5d 29 0a 28 66 73 | 65 74 20 27 72 65 61 64 |4)]).(fs|et 'read|
|000049d0| 2d 62 75 66 66 65 72 2d | 6e 61 6d 65 20 23 5b 28 |-buffer-|name #[(|
|000049e0| 70 72 6f 6d 70 74 20 26 | 6f 70 74 69 6f 6e 61 6c |prompt &|optional|
|000049f0| 20 69 6e 69 74 69 61 6c | 2d 69 6e 70 75 74 29 20 | initial|-input) |
|00004a00| 22 c0 09 c2 c3 c4 20 5c | 22 c5 c6 0e 07 25 87 22 |"..... \|"....%."|
|00004a10| 20 5b 63 6f 6d 70 6c 65 | 74 69 6e 67 2d 72 65 61 | [comple|ting-rea|
|00004a20| 64 20 70 72 6f 6d 70 74 | 20 6d 61 70 63 61 72 20 |d prompt| mapcar |
|00004a30| 23 5b 28 62 75 66 29 20 | 22 c0 09 21 43 87 22 20 |#[(buf) |"..!C." |
|00004a40| 5b 62 75 66 66 65 72 2d | 6e 61 6d 65 20 62 75 66 |[buffer-|name buf|
|00004a50| 5d 20 32 5d 20 62 75 66 | 66 65 72 2d 6c 69 73 74 |] 2] buf|fer-list|
|00004a60| 20 23 5b 28 6c 69 73 74 | 29 20 22 08 40 c1 48 c2 | #[(list|) ".@.H.|
|00004a70| 3d 3f 87 22 20 5b 6c 69 | 73 74 20 30 20 33 32 5d |=?." [li|st 0 32]|
|00004a80| 20 32 5d 20 74 20 69 6e | 69 74 69 61 6c 2d 69 6e | 2] t in|itial-in|
|00004a90| 70 75 74 5d 20 36 5d 29 | 0a 28 66 73 65 74 20 27 |put] 6])|.(fset '|
|00004aa0| 73 65 74 2d 6d 6f 64 65 | 2d 6d 6f 74 69 6f 6e 2d |set-mode|-motion-|
|00004ab0| 68 61 6e 64 6c 65 72 20 | 23 5b 28 6d 6f 64 65 20 |handler |#[(mode |
|00004ac0| 68 61 6e 64 6c 65 72 2d | 6e 61 6d 65 29 20 22 08 |handler-|name) ".|
|00004ad0| ab 86 c1 08 21 88 c2 10 | c3 0c c5 0e 06 ad 8b c7 |....!...|........|
|00004ae0| 0e 06 21 ae 85 c8 c9 0e | 06 5c 22 23 88 74 ab 92 |..!.....|.\"#.t..|
|00004af0| 0e 06 ab 89 ca cb 0c 0e | 06 23 88 aa 85 ca cc 0c |........|.#......|
|00004b00| 5c 22 88 0e 06 87 22 20 | 5b 6d 6f 64 65 2d 6d 6f |\"...." |[mode-mo|
|00004b10| 74 69 6f 6e 2d 65 78 74 | 65 6e 74 20 64 65 74 61 |tion-ext|ent deta|
|00004b20| 63 68 2d 65 78 74 65 6e | 74 20 6e 69 6c 20 70 75 |ch-exten|t nil pu|
|00004b30| 74 20 6d 6f 64 65 20 6d | 6f 64 65 2d 6d 6f 74 69 |t mode m|ode-moti|
|00004b40| 6f 6e 2d 68 61 6e 64 6c | 65 72 20 68 61 6e 64 6c |on-handl|er handl|
|00004b50| 65 72 2d 6e 61 6d 65 20 | 66 69 6e 64 2d 6d 6f 74 |er-name |find-mot|
|00004b60| 69 6f 6e 2d 68 61 6e 64 | 6c 65 72 20 65 72 72 6f |ion-hand|ler erro|
|00004b70| 72 20 22 4e 6f 74 20 61 | 20 6b 6e 6f 77 6e 20 6d |r "Not a| known m|
|00004b80| 6f 64 65 20 6d 6f 74 69 | 6f 6e 20 68 61 6e 64 6c |ode moti|on handl|
|00004b90| 65 72 3a 20 25 73 22 20 | 6d 65 73 73 61 67 65 20 |er: %s" |message |
|00004ba0| 22 4d 6f 74 69 6f 6e 20 | 68 61 6e 64 6c 65 72 20 |"Motion |handler |
|00004bb0| 66 6f 72 20 25 73 20 69 | 73 20 60 25 73 27 2e 22 |for %s i|s `%s'."|
|00004bc0| 20 22 4d 6f 64 65 20 6d | 6f 74 69 6f 6e 20 68 61 | "Mode m|otion ha|
|00004bd0| 6e 64 6c 65 72 20 66 6f | 72 20 25 73 20 72 65 6d |ndler fo|r %s rem|
|00004be0| 6f 76 65 64 2e 22 5d 20 | 36 20 22 5c 0a 4d 61 6b |oved."] |6 "\.Mak|
|00004bf0| 65 20 74 68 65 20 6d 6f | 74 69 6f 6e 20 68 61 6e |e the mo|tion han|
|00004c00| 64 6c 65 72 20 6e 61 6d | 65 64 20 48 41 4e 44 4c |dler nam|ed HANDL|
|00004c10| 45 52 2d 4e 41 4d 45 20 | 28 61 20 73 79 6d 62 6f |ER-NAME |(a symbo|
|00004c20| 6c 29 20 74 68 65 20 6d | 6f 64 65 20 6d 6f 74 69 |l) the m|ode moti|
|00004c30| 6f 6e 0a 68 61 6e 64 6c | 65 72 20 66 6f 72 20 61 |on.handl|er for a|
|00004c40| 6c 6c 20 62 75 66 66 65 | 72 73 20 77 69 74 68 20 |ll buffe|rs with |
|00004c50| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 4d 4f 44 45 2e |major-mo|de MODE.|
|00004c60| 20 20 49 66 20 48 41 4e | 44 4c 45 52 2d 4e 41 4d | If HAN|DLER-NAM|
|00004c70| 45 20 69 73 20 6e 69 6c | 2c 0a 74 68 65 20 63 6f |E is nil|,.the co|
|00004c80| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 6d 6f 64 65 |rrespond|ing mode|
|00004c90| 20 6d 6f 74 69 6f 6e 20 | 68 61 6e 64 6c 65 72 20 | motion |handler |
|00004ca0| 69 73 20 72 65 6d 6f 76 | 65 64 2e 20 20 49 66 20 |is remov|ed. If |
|00004cb0| 48 41 4e 44 4c 45 52 2d | 4e 41 4d 45 0a 69 73 6e |HANDLER-|NAME.isn|
|00004cc0| 27 74 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 61 |'t the n|ame of a|
|00004cd0| 20 6b 6e 6f 77 6e 20 6d | 6f 74 69 6f 6e 20 68 61 | known m|otion ha|
|00004ce0| 6e 64 6c 65 72 2c 20 61 | 6e 20 65 72 72 6f 72 20 |ndler, a|n error |
|00004cf0| 69 73 20 73 69 67 6e 61 | 6c 65 64 2e 20 57 68 65 |is signa|led. Whe|
|00004d00| 6e 0a 63 61 6c 6c 65 64 | 20 69 6e 74 65 72 61 63 |n.called| interac|
|00004d10| 74 69 76 65 6c 79 2c 20 | 63 6f 6d 70 6c 65 74 69 |tively, |completi|
|00004d20| 6f 6e 20 69 73 20 70 72 | 6f 76 69 64 65 64 20 66 |on is pr|ovided f|
|00004d30| 6f 72 20 61 76 61 69 6c | 61 62 6c 65 20 6d 6f 74 |or avail|able mot|
|00004d40| 69 6f 6e 0a 68 61 6e 64 | 6c 65 72 73 2e 0a 0a 09 |ion.hand|lers....|
|00004d50| 31 2e 29 20 62 75 66 66 | 65 72 20 6d 6f 74 69 6f |1.) buff|er motio|
|00004d60| 6e 20 68 61 6e 64 6c 65 | 72 0a 09 32 2e 29 20 6d |n handle|r..2.) m|
|00004d70| 6f 64 65 20 6d 6f 74 69 | 6f 6e 20 68 61 6e 64 6c |ode moti|on handl|
|00004d80| 65 72 0a 09 33 2e 29 20 | 64 65 66 61 75 6c 74 20 |er..3.) |default |
|00004d90| 6d 6f 74 69 6f 6e 20 68 | 61 6e 64 6c 65 72 22 20 |motion h|andler" |
|00004da0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 0b |(byte-co|de "....|
|00004db0| c4 c5 c6 0e 07 21 25 21 | c8 20 44 87 22 20 5b 69 |.....!%!|. D." [i|
|00004dc0| 6e 74 65 72 6e 20 63 6f | 6d 70 6c 65 74 69 6e 67 |ntern co|mpleting|
|00004dd0| 2d 72 65 61 64 20 22 4d | 61 6a 6f 72 20 6d 6f 64 |-read "M|ajor mod|
|00004de0| 65 3a 20 22 20 6f 62 61 | 72 72 61 79 20 66 62 6f |e: " oba|rray fbo|
|00004df0| 75 6e 64 70 20 6e 69 6c | 20 73 79 6d 62 6f 6c 2d |undp nil| symbol-|
|00004e00| 6e 61 6d 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |name maj|or-mode |
|00004e10| 72 65 61 64 2d 6d 6f 74 | 69 6f 6e 2d 68 61 6e 64 |read-mot|ion-hand|
|00004e20| 6c 65 72 2d 6e 61 6d 65 | 5d 20 38 29 5d 29 0a 28 |ler-name|] 8)]).(|
|00004e30| 66 73 65 74 20 27 73 65 | 74 2d 64 65 66 61 75 6c |fset 'se|t-defaul|
|00004e40| 74 2d 6d 6f 74 69 6f 6e | 2d 68 61 6e 64 6c 65 72 |t-motion|-handler|
|00004e50| 20 23 5b 28 68 61 6e 64 | 6c 65 72 2d 6e 61 6d 65 | #[(hand|ler-name|
|00004e60| 29 20 22 08 ab 86 c1 08 | 21 88 c2 10 0b ad 89 c4 |) ".....|!.......|
|00004e70| 0b 21 ae 84 c5 c6 0b 5c | 22 16 07 74 ab 8e 0b ab |.!.....\|"..t....|
|00004e80| 87 c8 c9 0b 5c 22 88 aa | 84 c8 ca 21 88 0b 87 22 |....\"..|...!..."|
|00004e90| 20 5b 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 65 78 | [mode-m|otion-ex|
|00004ea0| 74 65 6e 74 20 64 65 74 | 61 63 68 2d 65 78 74 65 |tent det|ach-exte|
|00004eb0| 6e 74 20 6e 69 6c 20 68 | 61 6e 64 6c 65 72 2d 6e |nt nil h|andler-n|
|00004ec0| 61 6d 65 20 66 69 6e 64 | 2d 6d 6f 74 69 6f 6e 2d |ame find|-motion-|
|00004ed0| 68 61 6e 64 6c 65 72 20 | 65 72 72 6f 72 20 22 4e |handler |error "N|
|00004ee0| 6f 74 20 61 20 6b 6e 6f | 77 6e 20 6d 6f 74 69 6f |ot a kno|wn motio|
|00004ef0| 6e 20 68 61 6e 64 6c 65 | 72 3a 20 25 73 22 20 64 |n handle|r: %s" d|
|00004f00| 65 66 61 75 6c 74 2d 6d | 6f 74 69 6f 6e 2d 68 61 |efault-m|otion-ha|
|00004f10| 6e 64 6c 65 72 20 6d 65 | 73 73 61 67 65 20 22 44 |ndler me|ssage "D|
|00004f20| 65 66 61 75 6c 74 20 6d | 6f 74 69 6f 6e 20 68 61 |efault m|otion ha|
|00004f30| 6e 64 6c 65 72 20 69 73 | 20 60 25 73 27 2e 22 20 |ndler is| `%s'." |
|00004f40| 22 44 65 66 61 75 6c 74 | 20 6d 6f 74 69 6f 6e 20 |"Default| motion |
|00004f50| 68 61 6e 64 6c 65 72 20 | 72 65 6d 6f 76 65 64 2e |handler |removed.|
|00004f60| 22 5d 20 33 20 22 5c 0a | 4d 61 6b 65 20 74 68 65 |"] 3 "\.|Make the|
|00004f70| 20 6d 6f 74 69 6f 6e 20 | 68 61 6e 64 6c 65 72 20 | motion |handler |
|00004f80| 6e 61 6d 65 64 20 48 41 | 4e 44 4c 45 52 2d 4e 41 |named HA|NDLER-NA|
|00004f90| 4d 45 20 28 61 20 73 79 | 6d 62 6f 6c 29 20 74 68 |ME (a sy|mbol) th|
|00004fa0| 65 20 64 65 66 61 75 6c | 74 2e 0a 0a 49 66 20 48 |e defaul|t...If H|
|00004fb0| 41 4e 44 4c 45 52 2d 4e | 41 4d 45 20 69 73 20 6e |ANDLER-N|AME is n|
|00004fc0| 69 6c 2c 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |il, the |current |
|00004fd0| 64 65 66 61 75 6c 74 20 | 6d 6f 74 69 6f 6e 20 68 |default |motion h|
|00004fe0| 61 6e 64 6c 65 72 20 69 | 73 20 72 65 6d 6f 76 65 |andler i|s remove|
|00004ff0| 64 2e 20 20 49 66 0a 48 | 41 4e 44 4c 45 52 2d 4e |d. If.H|ANDLER-N|
|00005000| 41 4d 45 20 69 73 6e 27 | 74 20 74 68 65 20 6e 61 |AME isn'|t the na|
|00005010| 6d 65 20 6f 66 20 61 20 | 6b 6e 6f 77 6e 20 6d 6f |me of a |known mo|
|00005020| 74 69 6f 6e 20 68 61 6e | 64 6c 65 72 2c 20 61 6e |tion han|dler, an|
|00005030| 20 65 72 72 6f 72 20 69 | 73 0a 73 69 67 6e 61 6c | error i|s.signal|
|00005040| 6c 65 64 2e 20 57 68 65 | 6e 20 63 61 6c 6c 65 64 |led. Whe|n called|
|00005050| 20 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 2c 20 | interac|tively, |
|00005060| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 69 73 20 70 72 |completi|on is pr|
|00005070| 6f 76 69 64 65 64 20 66 | 6f 72 20 61 76 61 69 6c |ovided f|or avail|
|00005080| 61 62 6c 65 0a 6d 6f 74 | 69 6f 6e 20 68 61 6e 64 |able.mot|ion hand|
|00005090| 6c 65 72 73 2e 0a 0a 54 | 68 65 20 6d 6f 74 69 6f |lers...T|he motio|
|000050a0| 6e 20 68 61 6e 64 6c 65 | 72 20 75 73 65 64 20 69 |n handle|r used i|
|000050b0| 6e 20 61 20 67 69 76 65 | 6e 20 62 75 66 66 65 72 |n a give|n buffer|
|000050c0| 20 69 73 20 64 65 74 65 | 72 6d 69 6e 65 64 20 62 | is dete|rmined b|
|000050d0| 79 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 0a |y the fo|llowing.|
|000050e0| 6d 6f 73 74 2d 73 70 65 | 63 69 66 69 63 20 66 69 |most-spe|cific fi|
|000050f0| 72 73 74 20 6c 69 73 74 | 3a 20 62 75 66 66 65 72 |rst list|: buffer|
|00005100| 20 6d 6f 74 69 6f 6e 20 | 68 61 6e 64 6c 65 72 2c | motion |handler,|
|00005110| 20 6d 6f 64 65 20 6d 6f | 74 69 6f 6e 20 68 61 6e | mode mo|tion han|
|00005120| 64 6c 65 72 2c 20 64 65 | 66 61 75 6c 74 0a 6d 6f |dler, de|fault.mo|
|00005130| 74 69 6f 6e 20 68 61 6e | 64 6c 65 72 2e 22 20 28 |tion han|dler." (|
|00005140| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 20 43 87 22 |byte-cod|e ". C."|
|00005150| 20 5b 72 65 61 64 2d 6d | 6f 74 69 6f 6e 2d 68 61 | [read-m|otion-ha|
|00005160| 6e 64 6c 65 72 2d 6e 61 | 6d 65 5d 20 31 29 5d 29 |ndler-na|me] 1)])|
|00005170| 0a 28 66 73 65 74 20 27 | 72 65 61 64 2d 6d 6f 74 |.(fset '|read-mot|
|00005180| 69 6f 6e 2d 68 61 6e 64 | 6c 65 72 2d 6e 61 6d 65 |ion-hand|ler-name|
|00005190| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 c3 c4 0d 5c 22 | #[nil "|......\"|
|000051a0| c6 c7 24 21 87 22 20 5b | 69 6e 74 65 72 6e 2d 73 |..$!." [|intern-s|
|000051b0| 6f 66 74 20 63 6f 6d 70 | 6c 65 74 69 6e 67 2d 72 |oft comp|leting-r|
|000051c0| 65 61 64 20 22 4d 6f 74 | 69 6f 6e 20 68 61 6e 64 |ead "Mot|ion hand|
|000051d0| 6c 65 72 3a 20 22 20 6d | 61 70 63 61 72 20 23 5b |ler: " m|apcar #[|
|000051e0| 28 65 6e 74 72 79 29 20 | 22 c0 09 40 21 43 87 22 |(entry) |"..@!C."|
|000051f0| 20 5b 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 65 6e | [symbol|-name en|
|00005200| 74 72 79 5d 20 32 5d 20 | 6d 6f 74 69 6f 6e 2d 68 |try] 2] |motion-h|
|00005210| 61 6e 64 6c 65 72 2d 61 | 6c 69 73 74 20 6e 69 6c |andler-a|list nil|
|00005220| 20 74 5d 20 36 5d 29 0a | 28 66 73 65 74 20 27 6d | t] 6]).|(fset 'm|
|00005230| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 63 6c 65 61 72 |ode-moti|on-clear|
|00005240| 2d 65 78 74 65 6e 74 20 | 23 5b 28 26 6f 70 74 69 |-extent |#[(&opti|
|00005250| 6f 6e 61 6c 20 65 78 74 | 65 6e 74 29 20 22 08 ac |onal ext|ent) "..|
|00005260| 82 09 10 08 ad 9f c2 08 | 21 ad 9a c3 08 21 3f ad |........|!....!?.|
|00005270| 94 c4 08 21 ad 8f c5 c4 | 08 21 21 ad 88 c6 08 c7 |...!....|.!!.....|
|00005280| 5c 22 88 c8 08 21 87 22 | 20 5b 65 78 74 65 6e 74 |\"...!."| [extent|
|00005290| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2d 65 78 74 | mode-mo|tion-ext|
|000052a0| 65 6e 74 20 65 78 74 65 | 6e 74 2d 6c 69 76 65 2d |ent exte|nt-live-|
|000052b0| 70 20 65 78 74 65 6e 74 | 2d 64 65 74 61 63 68 65 |p extent|-detache|
|000052c0| 64 2d 70 20 65 78 74 65 | 6e 74 2d 62 75 66 66 65 |d-p exte|nt-buffe|
|000052d0| 72 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 68 69 |r buffer|-name hi|
|000052e0| 67 68 6c 69 67 68 74 2d | 65 78 74 65 6e 74 20 6e |ghlight-|extent n|
|000052f0| 69 6c 20 64 65 74 61 63 | 68 2d 65 78 74 65 6e 74 |il detac|h-extent|
|00005300| 5d 20 33 20 22 5c 0a 43 | 6c 65 61 72 20 45 58 54 |] 3 "\.C|lear EXT|
|00005310| 45 4e 54 2c 20 69 2e 65 | 2e 20 6d 61 6b 65 20 69 |ENT, i.e|. make i|
|00005320| 74 20 68 61 76 65 20 6e | 6f 20 76 69 73 69 62 6c |t have n|o visibl|
|00005330| 65 20 65 66 66 65 63 74 | 73 20 6f 6e 20 74 68 65 |e effect|s on the|
|00005340| 20 66 72 61 6d 65 2e 0a | 45 58 54 45 4e 54 20 64 | frame..|EXTENT d|
|00005350| 65 66 61 75 6c 74 73 20 | 74 6f 20 74 68 65 20 63 |efaults |to the c|
|00005360| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 27 73 20 |urrent b|uffer's |
|00005370| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 65 78 74 65 |mode-mot|ion-exte|
|00005380| 6e 74 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 6d 6f |nt."]).(|fset 'mo|
|00005390| 64 65 2d 6d 6f 74 69 6f | 6e 2d 63 6c 65 61 72 2d |de-motio|n-clear-|
|000053a0| 6c 61 73 74 2d 65 78 74 | 65 6e 74 20 23 5b 28 26 |last-ext|ent #[(&|
|000053b0| 6f 70 74 69 6f 6e 61 6c | 20 66 72 61 6d 65 29 20 |optional| frame) |
|000053c0| 22 c0 20 ae 83 c1 5c 6e | 21 87 22 20 5b 70 6f 70 |". ...\n|!." [pop|
|000053d0| 75 70 2d 6d 65 6e 75 2d | 75 70 2d 70 20 6d 6f 64 |up-menu-|up-p mod|
|000053e0| 65 2d 6d 6f 74 69 6f 6e | 2d 63 6c 65 61 72 2d 65 |e-motion|-clear-e|
|000053f0| 78 74 65 6e 74 20 6d 6f | 64 65 2d 6d 6f 74 69 6f |xtent mo|de-motio|
|00005400| 6e 2d 6c 61 73 74 2d 65 | 78 74 65 6e 74 5d 20 32 |n-last-e|xtent] 2|
|00005410| 20 22 5c 0a 43 6c 65 61 | 72 20 74 68 65 20 6d 6f | "\.Clea|r the mo|
|00005420| 64 65 2d 6d 6f 74 69 6f | 6e 2d 6c 61 73 74 2d 65 |de-motio|n-last-e|
|00005430| 78 74 65 6e 74 2e 22 5d | 29 0a 28 66 73 65 74 20 |xtent."]|).(fset |
|00005440| 27 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2b 2d 68 69 |'mode-mo|tion+-hi|
|00005450| 67 68 6c 69 67 68 74 20 | 23 5b 28 65 76 65 6e 74 |ghlight |#[(event|
|00005460| 29 20 22 c0 20 88 c1 5c | 6e 21 ab aa 0b ab a1 c4 |) ". ..\|n!......|
|00005470| c5 21 ab 9c c6 1e 07 c8 | 5c 6e 21 ad 91 c9 c8 5c |.!......|\n!....\|
|00005480| 6e 21 c1 5c 6e 21 ca 23 | ae 86 cb c4 c5 21 5c 6e |n!.\n!.#|.....!\n|
|00005490| 5c 22 29 ac 86 cb cc 20 | 5c 6e 5c 22 88 c6 87 22 |\").... |\n\"..."|
|000054a0| 20 5b 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 63 6c | [mode-m|otion-cl|
|000054b0| 65 61 72 2d 6c 61 73 74 | 2d 65 78 74 65 6e 74 20 |ear-last|-extent |
|000054c0| 65 76 65 6e 74 2d 62 75 | 66 66 65 72 20 65 76 65 |event-bu|ffer eve|
|000054d0| 6e 74 20 6d 6f 75 73 65 | 2d 67 72 61 62 62 65 64 |nt mouse|-grabbed|
|000054e0| 2d 62 75 66 66 65 72 20 | 66 69 6e 64 2d 6d 6f 74 |-buffer |find-mot|
|000054f0| 69 6f 6e 2d 68 61 6e 64 | 6c 65 72 20 6d 69 6e 69 |ion-hand|ler mini|
|00005500| 62 75 66 66 65 72 20 6e | 69 6c 20 6d 6f 64 65 2d |buffer n|il mode-|
|00005510| 6d 6f 74 69 6f 6e 2d 68 | 69 67 68 6c 69 67 68 74 |motion-h|ighlight|
|00005520| 2d 6c 69 6e 65 73 2d 77 | 68 65 6e 2d 62 65 68 69 |-lines-w|hen-behi|
|00005530| 6e 64 20 65 76 65 6e 74 | 2d 70 6f 69 6e 74 20 65 |nd event|-point e|
|00005540| 78 74 65 6e 74 2d 61 74 | 20 68 69 67 68 6c 69 67 |xtent-at| highlig|
|00005550| 68 74 20 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2d 68 |ht mode-|motion-h|
|00005560| 69 67 68 6c 69 67 68 74 | 2d 77 69 74 68 2d 68 61 |ighlight|-with-ha|
|00005570| 6e 64 6c 65 72 20 67 65 | 74 2d 63 75 72 72 65 6e |ndler ge|t-curren|
|00005580| 74 2d 6d 6f 74 69 6f 6e | 2d 68 61 6e 64 6c 65 72 |t-motion|-handler|
|00005590| 5d 20 34 20 22 5c 0a 48 | 69 67 68 6c 69 67 68 74 |] 4 "\.H|ighlight|
|000055a0| 20 74 68 65 20 74 68 69 | 6e 67 20 75 6e 64 65 72 | the thi|ng under|
|000055b0| 20 74 68 65 20 6d 6f 75 | 73 65 20 75 73 69 6e 67 | the mou|se using|
|000055c0| 20 61 20 6d 6f 64 65 2d | 73 70 65 63 66 69 63 20 | a mode-|specfic |
|000055d0| 6d 6f 74 69 6f 6e 20 68 | 61 6e 64 6c 65 72 2e 0a |motion h|andler..|
|000055e0| 53 65 65 20 6c 69 73 74 | 2d 6d 6f 74 69 6f 6e 2d |See list|-motion-|
|000055f0| 68 61 6e 64 6c 65 72 73 | 20 66 6f 72 20 6d 6f 72 |handlers| for mor|
|00005600| 65 20 64 65 74 61 69 6c | 73 2e 22 5d 29 0a 28 62 |e detail|s."]).(b|
|00005610| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|00005620| 4d 88 c4 c5 4d 88 c6 c7 | c8 c9 23 88 c6 ca c8 c9 |M...M...|..#.....|
|00005630| 23 87 22 20 5b 67 65 74 | 2d 63 75 72 72 65 6e 74 |#." [get|-current|
|00005640| 2d 6d 6f 74 69 6f 6e 2d | 68 61 6e 64 6c 65 72 20 |-motion-|handler |
|00005650| 23 5b 6e 69 6c 20 22 c0 | c1 21 ab 83 09 ae 86 5c |#[nil ".|.!.....\|
|00005660| 6e c3 4e ae 81 0c 87 22 | 20 5b 62 6f 75 6e 64 70 |n.N...."| [boundp|
|00005670| 20 62 75 66 66 65 72 2d | 6d 6f 74 69 6f 6e 2d 68 | buffer-|motion-h|
|00005680| 61 6e 64 6c 65 72 20 6d | 61 6a 6f 72 2d 6d 6f 64 |andler m|ajor-mod|
|00005690| 65 20 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 68 61 |e mode-m|otion-ha|
|000056a0| 6e 64 6c 65 72 20 64 65 | 66 61 75 6c 74 2d 6d 6f |ndler de|fault-mo|
|000056b0| 74 69 6f 6e 2d 68 61 6e | 64 6c 65 72 5d 20 32 5d |tion-han|dler] 2]|
|000056c0| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2d 68 69 67 | mode-mo|tion-hig|
|000056d0| 68 6c 69 67 68 74 2d 77 | 69 74 68 2d 68 61 6e 64 |hlight-w|ith-hand|
|000056e0| 6c 65 72 20 23 5b 28 68 | 61 6e 64 6c 65 72 20 65 |ler #[(h|andler e|
|000056f0| 76 65 6e 74 29 20 22 08 | 85 5c 22 01 c1 5c 6e 21 |vent) ".|.\"..\n!|
|00005700| c3 5c 6e 21 c4 5c 6e 21 | c5 20 70 60 c6 1e 07 1e |.\n!.\n!|. p`....|
|00005710| 08 1e 09 1e 5c 6e 1e 0b | 1e 0c 1e 0d ce 8e 0e 0c |....\n..|........|
|00005720| ab 8a 0e 0c 71 ab 85 cf | 0e 0b 21 88 0e 0d ab 8e |....q...|..!.....|
|00005730| 0e 0d d0 0e 0b 21 57 ac | 85 0e 0d 53 16 0d d1 0e |.....!W.|...S....|
|00005740| 12 21 ab 86 d3 0e 12 21 | ac 8e d4 c6 89 0e 0c 23 |.!.....!|.......#|
|00005750| 16 12 d5 0e 12 d6 5c 22 | 88 0e 0d ab 86 c6 d7 d8 |......\"|........|
|00005760| 8f aa bb 0e 19 ad b7 da | 8e db 0e 1c dd 57 ab 8c |........|.....W..|
|00005770| de 5c 6e 21 df 0e 0b 21 | 41 40 5a aa 83 de 5c 6e |.\n!...!|A@Z...\n|
|00005780| 21 21 88 e0 79 88 67 e1 | 55 3f ad 93 e2 60 c6 7f |!!..y.g.|U?...`..|
|00005790| 88 60 16 0d 6d ab 84 0e | 0d aa 83 0e 0d 54 5c 22 |.`..m...|.....T\"|
|000057a0| 29 89 16 07 ad fa 0e 07 | 40 0e 07 41 58 ad f1 e3 |).......|@..AX...|
|000057b0| 0e 12 08 89 18 e4 48 29 | 5c 22 88 e5 0e 12 0e 07 |......H)|\"......|
|000057c0| 40 0e 07 41 23 88 e6 0e | 12 e7 08 89 18 e8 48 29 |@..A#...|......H)|
|000057d0| 23 88 e9 0e 12 08 89 18 | e8 48 29 5c 22 88 08 89 |#.......|.H)\"...|
|000057e0| 18 ea 48 29 ab 9f eb 20 | ac 9b 0e 0d 62 88 08 89 |..H)... |....b...|
|000057f0| 18 d6 48 29 ec 3d ac 8a | 08 89 18 d6 48 29 ed 3d |..H).=..|....H).=|
|00005800| ab 83 e0 79 88 0e 2e ab | 94 0e 2e ef 3d ac 88 08 |...y....|....=...|
|00005810| 89 18 ea 48 29 ab 86 f0 | cf f1 20 5c 22 88 0e 12 |...H)...|.. \"...|
|00005820| 16 32 ef 2e 08 87 22 20 | 5b 68 61 6e 64 6c 65 72 |.2...." |[handler|
|00005830| 20 65 76 65 6e 74 2d 70 | 6f 69 6e 74 20 65 76 65 | event-p|oint eve|
|00005840| 6e 74 20 65 76 65 6e 74 | 2d 62 75 66 66 65 72 20 |nt event|-buffer |
|00005850| 65 76 65 6e 74 2d 77 69 | 6e 64 6f 77 20 63 75 72 |event-wi|ndow cur|
|00005860| 72 65 6e 74 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |rent-win|dow-conf|
|00005870| 69 67 75 72 61 74 69 6f | 6e 20 6e 69 6c 20 72 65 |iguratio|n nil re|
|00005880| 67 69 6f 6e 20 70 6f 69 | 6e 74 2d 73 61 76 65 20 |gion poi|nt-save |
|00005890| 62 75 66 66 65 72 2d 73 | 61 76 65 20 77 69 6e 64 |buffer-s|ave wind|
|000058a0| 6f 77 2d 63 6f 6e 66 69 | 67 20 77 69 6e 64 6f 77 |ow-confi|g window|
|000058b0| 20 62 75 66 66 65 72 20 | 70 6f 69 6e 74 20 28 28 | buffer |point ((|
|000058c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 21 88 5c |byte-cod|e "..!.\|
|000058d0| 6e 71 87 22 20 5b 73 65 | 74 2d 77 69 6e 64 6f 77 |nq." [se|t-window|
|000058e0| 2d 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 20 77 |-configu|ration w|
|000058f0| 69 6e 64 6f 77 2d 63 6f | 6e 66 69 67 20 62 75 66 |indow-co|nfig buf|
|00005900| 66 65 72 2d 73 61 76 65 | 5d 20 32 29 29 20 73 65 |fer-save|] 2)) se|
|00005910| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 77 69 6e 64 |lect-win|dow wind|
|00005920| 6f 77 2d 65 6e 64 20 65 | 78 74 65 6e 74 2d 6c 69 |ow-end e|xtent-li|
|00005930| 76 65 2d 70 20 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |ve-p mod|e-motion|
|00005940| 2d 65 78 74 65 6e 74 20 | 65 78 74 65 6e 74 2d 62 |-extent |extent-b|
|00005950| 75 66 66 65 72 20 6d 61 | 6b 65 2d 65 78 74 65 6e |uffer ma|ke-exten|
|00005960| 74 20 73 65 74 2d 65 78 | 74 65 6e 74 2d 70 72 69 |t set-ex|tent-pri|
|00005970| 6f 72 69 74 79 20 31 20 | 28 62 79 74 65 2d 63 6f |ority 1 |(byte-co|
|00005980| 64 65 20 22 08 89 18 c1 | 48 29 5c 6e 21 87 22 20 |de "....|H)\n!." |
|00005990| 5b 68 61 6e 64 6c 65 72 | 20 31 20 70 6f 69 6e 74 |[handler| 1 point|
|000059a0| 5d 20 33 29 20 28 28 65 | 72 72 6f 72 29 29 20 6d |] 3) ((e|rror)) m|
|000059b0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 69 67 68 6c |ode-moti|on-highl|
|000059c0| 69 67 68 74 2d 6c 69 6e | 65 73 2d 77 68 65 6e 2d |ight-lin|es-when-|
|000059d0| 62 65 68 69 6e 64 20 28 | 28 67 6f 74 6f 2d 63 68 |behind (|(goto-ch|
|000059e0| 61 72 20 70 6f 69 6e 74 | 2d 73 61 76 65 29 29 20 |ar point|-save)) |
|000059f0| 6d 6f 76 65 2d 74 6f 2d | 77 69 6e 64 6f 77 2d 6c |move-to-|window-l|
|00005a00| 69 6e 65 20 65 6d 61 63 | 73 2d 6d 69 6e 6f 72 2d |ine emac|s-minor-|
|00005a10| 76 65 72 73 69 6f 6e 20 | 31 32 20 65 76 65 6e 74 |version |12 event|
|00005a20| 2d 79 20 77 69 6e 64 6f | 77 2d 65 64 67 65 73 20 |-y windo|w-edges |
|00005a30| 30 20 31 30 20 74 68 69 | 6e 67 2d 72 65 67 69 6f |0 10 thi|ng-regio|
|00005a40| 6e 20 73 65 74 2d 65 78 | 74 65 6e 74 2d 66 61 63 |n set-ex|tent-fac|
|00005a50| 65 20 32 20 73 65 74 2d | 65 78 74 65 6e 74 2d 65 |e 2 set-|extent-e|
|00005a60| 6e 64 70 6f 69 6e 74 73 | 20 73 65 74 2d 65 78 74 |ndpoints| set-ext|
|00005a70| 65 6e 74 2d 70 72 6f 70 | 65 72 74 79 20 68 69 67 |ent-prop|erty hig|
|00005a80| 68 6c 69 67 68 74 20 33 | 20 68 69 67 68 6c 69 67 |hlight 3| highlig|
|00005a90| 68 74 2d 65 78 74 65 6e | 74 20 34 20 6d 61 72 6b |ht-exten|t 4 mark|
|00005aa0| 20 6c 69 6e 65 2d 62 6f | 75 6e 64 61 72 69 65 73 | line-bo|undaries|
|00005ab0| 20 76 69 73 69 62 6c 65 | 2d 6c 69 6e 65 2d 62 6f | visible|-line-bo|
|00005ac0| 75 6e 64 61 72 69 65 73 | 20 6d 6f 64 65 2d 6d 6f |undaries| mode-mo|
|00005ad0| 74 69 6f 6e 2d 66 6f 63 | 75 73 2d 6f 6e 2d 77 69 |tion-foc|us-on-wi|
|00005ae0| 6e 64 6f 77 20 74 20 65 | 6e 71 75 65 75 65 2d 65 |ndow t e|nqueue-e|
|00005af0| 76 61 6c 2d 65 76 65 6e | 74 20 73 65 6c 65 63 74 |val-even|t select|
|00005b00| 65 64 2d 77 69 6e 64 6f | 77 20 6d 6f 64 65 2d 6d |ed-windo|w mode-m|
|00005b10| 6f 74 69 6f 6e 2d 6c 61 | 73 74 2d 65 78 74 65 6e |otion-la|st-exten|
|00005b20| 74 5d 20 38 5d 20 64 65 | 62 75 67 2d 6d 6f 74 69 |t] 8] de|bug-moti|
|00005b30| 6f 6e 2d 68 61 6e 64 6c | 65 72 20 23 5b 28 65 76 |on-handl|er #[(ev|
|00005b40| 65 6e 74 29 20 22 c0 09 | 21 1a c3 09 21 ae 82 c4 |ent) "..|!...!...|
|00005b50| 20 1d 5c 6e ad 83 c6 09 | 21 89 1e 07 ad 83 c8 09 | .\n....|!.......|
|00005b60| 21 1e 09 ca 90 cb cc cd | 5c 6e 0d 0e 07 ce 09 21 |!.......|\n.....!|
|00005b70| cf 09 21 d0 09 21 d1 09 | 21 0e 09 d2 09 21 26 5c |..!..!..|!....!&\|
|00005b80| 6e 21 91 2c 87 22 20 5b | 65 76 65 6e 74 2d 77 69 |n!.,." [|event-wi|
|00005b90| 6e 64 6f 77 20 65 76 65 | 6e 74 20 77 69 6e 64 6f |ndow eve|nt windo|
|00005ba0| 77 20 65 76 65 6e 74 2d | 66 72 61 6d 65 20 73 65 |w event-|frame se|
|00005bb0| 6c 65 63 74 65 64 2d 66 | 72 61 6d 65 20 66 72 61 |lected-f|rame fra|
|00005bc0| 6d 65 20 65 76 65 6e 74 | 2d 62 75 66 66 65 72 20 |me event|-buffer |
|00005bd0| 62 75 66 66 65 72 20 65 | 76 65 6e 74 2d 70 6f 69 |buffer e|vent-poi|
|00005be0| 6e 74 20 70 6f 69 6e 74 | 20 22 2a 44 65 62 75 67 |nt point| "*Debug|
|00005bf0| 20 4d 6f 74 69 6f 6e 20 | 48 61 6e 64 6c 65 72 20 | Motion |Handler |
|00005c00| 4f 75 74 70 75 74 2a 22 | 20 70 72 69 6e 63 20 66 |Output*"| princ f|
|00005c10| 6f 72 6d 61 74 20 22 20 | 57 69 6e 64 6f 77 3a 20 |ormat " |Window: |
|00005c20| 25 73 5c 6e 20 46 72 61 | 6d 65 3a 20 25 73 5c 6e |%s\n Fra|me: %s\n|
|00005c30| 20 42 75 66 66 65 72 3a | 20 25 73 5c 6e 20 28 65 | Buffer:| %s\n (e|
|00005c40| 76 65 6e 74 2d 78 2c 20 | 65 76 65 6e 74 2d 79 29 |vent-x, |event-y)|
|00005c50| 3a 20 28 25 73 2c 20 25 | 73 29 5c 6e 20 28 65 76 |: (%s, %|s)\n (ev|
|00005c60| 65 6e 74 2d 78 2d 70 69 | 78 65 6c 2c 20 65 76 65 |ent-x-pi|xel, eve|
|00005c70| 6e 74 2d 79 2d 70 69 78 | 65 6c 29 3a 20 28 25 73 |nt-y-pix|el): (%s|
|00005c80| 2c 20 25 73 29 5c 6e 20 | 50 6f 69 6e 74 3a 20 25 |, %s)\n |Point: %|
|00005c90| 73 5c 6e 20 54 69 6d 65 | 73 74 61 6d 70 3a 20 25 |s\n Time|stamp: %|
|00005ca0| 73 22 20 65 76 65 6e 74 | 2d 78 20 65 76 65 6e 74 |s" event|-x event|
|00005cb0| 2d 79 20 65 76 65 6e 74 | 2d 78 2d 70 69 78 65 6c |-y event|-x-pixel|
|00005cc0| 20 65 76 65 6e 74 2d 79 | 2d 70 69 78 65 6c 20 65 | event-y|-pixel e|
|00005cd0| 76 65 6e 74 2d 74 69 6d | 65 73 74 61 6d 70 5d 20 |vent-tim|estamp] |
|00005ce0| 31 35 5d 20 70 75 74 20 | 6d 6f 64 65 2d 6d 6f 74 |15] put |mode-mot|
|00005cf0| 69 6f 6e 2d 6d 6f 76 65 | 20 70 65 6e 64 69 6e 67 |ion-move| pending|
|00005d00| 2d 64 65 6c 65 74 65 20 | 74 20 6d 6f 64 65 2d 6d |-delete |t mode-m|
|00005d10| 6f 74 69 6f 6e 2d 63 6f | 70 79 5d 20 34 29 0a 28 |otion-co|py] 4).(|
|00005d20| 66 73 65 74 20 27 6d 6f | 64 65 2d 6d 6f 74 69 6f |fset 'mo|de-motio|
|00005d30| 6e 2d 6d 6f 76 65 20 23 | 5b 6e 69 6c 20 22 c0 c1 |n-move #|[nil "..|
|00005d40| c2 21 21 87 22 20 5b 6d | 6f 64 65 2d 6d 6f 74 69 |.!!." [m|ode-moti|
|00005d50| 6f 6e 2d 69 6e 73 65 72 | 74 2d 74 65 78 74 20 6d |on-inser|t-text m|
|00005d60| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 63 6f 70 79 2f |ode-moti|on-copy/|
|00005d70| 64 65 6c 65 74 65 20 74 | 5d 20 33 20 22 5c 0a 4d |delete t|] 3 "\.M|
|00005d80| 6f 76 65 20 74 68 65 20 | 6d 6f 74 69 6f 6e 20 61 |ove the |motion a|
|00005d90| 63 74 69 76 65 20 72 65 | 67 69 6f 6e 20 74 6f 20 |ctive re|gion to |
|00005da0| 70 6f 69 6e 74 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |point." |nil]).(f|
|00005db0| 73 65 74 20 27 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |set 'mod|e-motion|
|00005dc0| 2d 6b 69 6c 6c 20 23 5b | 6e 69 6c 20 22 c0 c1 89 |-kill #[|nil "...|
|00005dd0| 89 23 87 22 20 5b 6d 6f | 64 65 2d 6d 6f 74 69 6f |.#." [mo|de-motio|
|00005de0| 6e 2d 63 6f 70 79 2f 64 | 65 6c 65 74 65 20 74 5d |n-copy/d|elete t]|
|00005df0| 20 34 20 22 5c 0a 4b 69 | 6c 6c 20 74 68 65 20 6d | 4 "\.Ki|ll the m|
|00005e00| 6f 74 69 6f 6e 20 61 63 | 74 69 76 65 20 72 65 67 |otion ac|tive reg|
|00005e10| 69 6f 6e 20 61 6e 64 20 | 70 75 73 68 20 69 74 20 |ion and |push it |
|00005e20| 6f 6e 74 6f 20 74 68 65 | 20 6b 69 6c 6c 20 72 69 |onto the| kill ri|
|00005e30| 6e 67 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ng." nil|]).(fset|
|00005e40| 20 27 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 63 6f | 'mode-m|otion-co|
|00005e50| 70 79 20 23 5b 6e 69 6c | 20 22 c0 c1 20 21 87 22 |py #[nil| ".. !."|
|00005e60| 20 5b 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 69 6e | [mode-m|otion-in|
|00005e70| 73 65 72 74 2d 74 65 78 | 74 20 6d 6f 64 65 2d 6d |sert-tex|t mode-m|
|00005e80| 6f 74 69 6f 6e 2d 63 6f | 70 79 2f 64 65 6c 65 74 |otion-co|py/delet|
|00005e90| 65 5d 20 32 20 22 5c 0a | 43 6f 70 79 20 74 68 65 |e] 2 "\.|Copy the|
|00005ea0| 20 6d 6f 74 69 6f 6e 20 | 61 63 74 69 76 65 20 72 | motion |active r|
|00005eb0| 65 67 69 6f 6e 20 74 6f | 20 70 6f 69 6e 74 2e 22 |egion to| point."|
|00005ec0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 6d 6f | nil]).(|fset 'mo|
|00005ed0| 64 65 2d 6d 6f 74 69 6f | 6e 2d 63 6f 70 79 2d 61 |de-motio|n-copy-a|
|00005ee0| 73 2d 6b 69 6c 6c 20 23 | 5b 6e 69 6c 20 22 c0 c1 |s-kill #|[nil "..|
|00005ef0| c2 5c 22 88 c3 c4 21 87 | 22 20 5b 6d 6f 64 65 2d |.\"...!.|" [mode-|
|00005f00| 6d 6f 74 69 6f 6e 2d 63 | 6f 70 79 2f 64 65 6c 65 |motion-c|opy/dele|
|00005f10| 74 65 20 6e 69 6c 20 74 | 20 6d 65 73 73 61 67 65 |te nil t| message|
|00005f20| 20 22 54 65 78 74 20 63 | 6f 70 69 65 64 20 74 6f | "Text c|opied to|
|00005f30| 20 74 68 65 20 74 6f 20 | 72 69 6e 67 20 61 6e 64 | the to |ring and|
|00005f40| 20 63 75 74 20 62 75 66 | 66 65 72 2e 22 5d 20 33 | cut buf|fer."] 3|
|00005f50| 20 22 5c 0a 44 65 6c 65 | 74 65 20 74 68 65 20 6d | "\.Dele|te the m|
|00005f60| 6f 74 69 6f 6e 20 61 63 | 74 69 76 65 20 72 65 67 |otion ac|tive reg|
|00005f70| 69 6f 6e 20 61 6e 64 20 | 70 75 73 68 20 69 74 20 |ion and |push it |
|00005f80| 6f 6e 74 6f 20 74 68 65 | 20 6b 69 6c 6c 20 72 69 |onto the| kill ri|
|00005f90| 6e 67 2e 0a 53 65 74 20 | 70 6f 69 6e 74 20 74 6f |ng..Set |point to|
|00005fa0| 20 74 68 65 20 70 6c 61 | 63 65 20 77 68 65 72 65 | the pla|ce where|
|00005fb0| 20 64 65 6c 65 74 69 6f | 6e 20 68 61 70 70 65 6e | deletio|n happen|
|00005fc0| 65 64 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ed." nil|]).(fset|
|00005fd0| 20 27 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 63 6f | 'mode-m|otion-co|
|00005fe0| 70 79 2f 64 65 6c 65 74 | 65 20 23 5b 28 26 6f 70 |py/delet|e #[(&op|
|00005ff0| 74 69 6f 6e 61 6c 20 64 | 65 6c 65 74 65 20 63 6f |tional d|elete co|
|00006000| 70 79 2d 61 73 2d 6b 69 | 6c 6c 20 73 65 74 2d 70 |py-as-ki|ll set-p|
|00006010| 6f 69 6e 74 29 20 22 70 | c0 20 19 1a c3 8e 0c ae |oint) "p|. ......|
|00006020| 90 c5 0e 06 21 ad 8a c7 | 0e 06 c8 5c 22 3f ad 82 |....!...|...\"?..|
|00006030| 0e 06 1e 09 c5 0e 09 21 | ab ea ca 0e 09 21 71 ab |.......!|.....!q.|
|00006040| e3 cb 0e 09 21 cc 0e 09 | 21 55 ac d8 cb 0e 09 21 |....!...|!U.....!|
|00006050| 1e 0d cc 0e 09 21 1e 0e | cb 0e 09 21 cc 0e 09 21 |.....!..|...!...!|
|00006060| 7b 1e 0f 0e 10 ab 9c d1 | 0e 0d 0e 0e 5c 22 88 0e |{.......|....\"..|
|00006070| 12 ab 86 0e 12 d3 3d ab | 8b d4 d5 0e 0f 5c 22 88 |......=.|.....\".|
|00006080| d6 0e 0f 21 88 0e 17 ab | 95 d8 0e 0d 0e 0e 5c 22 |...!....|......\"|
|00006090| 88 d4 d5 0e 0f 5c 22 88 | 0e 19 ab 84 0e 0d 62 88 |.....\".|......b.|
|000060a0| da 16 1b 0e 0f 2b aa 83 | dc dd 21 2c 87 22 20 5b |.....+..|..!,." [|
|000060b0| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|000060c0| 6f 6c 64 2d 77 69 6e 64 | 6f 77 20 6f 6c 64 2d 62 |old-wind|ow old-b|
|000060d0| 75 66 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |uf ((byt|e-code "|
|000060e0| 08 71 88 c1 5c 6e 21 87 | 22 20 5b 6f 6c 64 2d 62 |.q..\n!.|" [old-b|
|000060f0| 75 66 20 73 65 6c 65 63 | 74 2d 77 69 6e 64 6f 77 |uf selec|t-window|
|00006100| 20 6f 6c 64 2d 77 69 6e | 64 6f 77 5d 20 32 29 29 | old-win|dow] 2))|
|00006110| 20 70 72 69 6d 61 72 79 | 2d 73 65 6c 65 63 74 69 | primary|-selecti|
|00006120| 6f 6e 2d 65 78 74 65 6e | 74 20 65 78 74 65 6e 74 |on-exten|t extent|
|00006130| 70 20 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 6c 61 |p mode-m|otion-la|
|00006140| 73 74 2d 65 78 74 65 6e | 74 20 65 78 74 65 6e 74 |st-exten|t extent|
|00006150| 2d 70 72 6f 70 65 72 74 | 79 20 64 65 74 61 63 68 |-propert|y detach|
|00006160| 65 64 20 65 78 74 65 6e | 74 20 65 78 74 65 6e 74 |ed exten|t extent|
|00006170| 2d 62 75 66 66 65 72 20 | 65 78 74 65 6e 74 2d 73 |-buffer |extent-s|
|00006180| 74 61 72 74 2d 70 6f 73 | 69 74 69 6f 6e 20 65 78 |tart-pos|ition ex|
|00006190| 74 65 6e 74 2d 65 6e 64 | 2d 70 6f 73 69 74 69 6f |tent-end|-positio|
|000061a0| 6e 20 73 74 61 72 74 20 | 65 6e 64 20 74 65 78 74 |n start |end text|
|000061b0| 20 63 6f 70 79 2d 61 73 | 2d 6b 69 6c 6c 20 63 6f | copy-as|-kill co|
|000061c0| 70 79 2d 72 65 67 69 6f | 6e 2d 61 73 2d 6b 69 6c |py-regio|n-as-kil|
|000061d0| 6c 20 6b 69 6c 6c 2d 68 | 6f 6f 6b 73 20 69 67 6e |l kill-h|ooks ign|
|000061e0| 6f 72 65 20 78 2d 6f 77 | 6e 2d 73 65 6c 65 63 74 |ore x-ow|n-select|
|000061f0| 69 6f 6e 2d 69 6e 74 65 | 72 6e 61 6c 20 50 52 49 |ion-inte|rnal PRI|
|00006200| 4d 41 52 59 20 78 2d 6f | 77 6e 2d 63 6c 69 70 62 |MARY x-o|wn-clipb|
|00006210| 6f 61 72 64 20 64 65 6c | 65 74 65 20 6b 69 6c 6c |oard del|ete kill|
|00006220| 2d 72 65 67 69 6f 6e 20 | 73 65 74 2d 70 6f 69 6e |-region |set-poin|
|00006230| 74 20 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2b 20 74 |t mode-m|otion+ t|
|00006240| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 65 72 72 6f |his-comm|and erro|
|00006250| 72 20 22 4e 6f 20 63 75 | 72 72 65 6e 74 20 70 72 |r "No cu|rrent pr|
|00006260| 69 6d 61 72 79 20 6f 72 | 20 6d 6f 74 69 6f 6e 20 |imary or| motion |
|00006270| 73 65 6c 65 63 74 69 6f | 6e 2e 22 5d 20 33 20 22 |selectio|n."] 3 "|
|00006280| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 73 74 72 |\.Return| the str|
|00006290| 69 6e 67 20 74 68 61 74 | 20 69 73 20 64 65 73 69 |ing that| is desi|
|000062a0| 67 6e 61 74 65 64 20 62 | 79 20 74 68 65 20 63 75 |gnated b|y the cu|
|000062b0| 72 72 65 6e 74 20 6d 6f | 74 69 6f 6e 20 61 63 74 |rrent mo|tion act|
|000062c0| 69 76 65 20 72 65 67 69 | 6f 6e 2e 20 0a 41 72 67 |ive regi|on. .Arg|
|000062d0| 75 6d 65 6e 74 73 20 61 | 72 65 3a 0a 20 20 20 20 |uments a|re:. |
|000062e0| 20 20 20 20 20 20 20 45 | 56 45 4e 54 20 2d 20 61 | E|VENT - a|
|000062f0| 20 6d 6f 75 73 65 20 63 | 6c 69 63 6b 20 65 76 65 | mouse c|lick eve|
|00006300| 6e 74 20 75 73 65 64 20 | 74 6f 20 69 64 65 6e 74 |nt used |to ident|
|00006310| 69 66 79 20 74 68 65 20 | 62 75 66 66 65 72 20 61 |ify the |buffer a|
|00006320| 6e 64 20 77 69 6e 64 6f | 77 20 0a 26 6f 70 74 69 |nd windo|w .&opti|
|00006330| 6f 6e 61 6c 20 44 45 4c | 45 54 45 20 2d 20 64 65 |onal DEL|ETE - de|
|00006340| 6c 65 74 65 20 74 68 65 | 20 6d 6f 74 69 6f 6e 20 |lete the| motion |
|00006350| 61 63 74 69 76 65 20 74 | 65 78 74 20 72 65 67 69 |active t|ext regi|
|00006360| 6f 6e 0a 20 20 20 20 43 | 4f 50 59 2d 41 53 2d 4b |on. C|OPY-AS-K|
|00006370| 49 4c 4c 20 2d 20 63 6f | 70 79 20 74 68 65 20 73 |ILL - co|py the s|
|00006380| 74 72 69 6e 67 20 74 6f | 20 74 68 65 20 6b 69 6c |tring to| the kil|
|00006390| 6c 20 72 69 6e 67 0a 20 | 20 20 20 20 20 20 53 45 |l ring. | SE|
|000063a0| 54 2d 50 4f 49 4e 54 20 | 2d 20 73 65 74 20 70 6f |T-POINT |- set po|
|000063b0| 69 6e 74 20 74 6f 20 74 | 68 65 20 73 74 61 72 74 |int to t|he start|
|000063c0| 20 6f 66 20 74 68 65 20 | 6d 6f 74 69 6f 6e 20 61 | of the |motion a|
|000063d0| 63 74 69 76 65 20 72 65 | 67 69 6f 6e 2e 22 5d 29 |ctive re|gion."])|
|000063e0| 0a 28 66 73 65 74 20 27 | 6d 6f 64 65 2d 6d 6f 74 |.(fset '|mode-mot|
|000063f0| 69 6f 6e 2d 69 6e 73 65 | 72 74 2d 74 65 78 74 20 |ion-inse|rt-text |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
